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AT 言 


ASP 是 Microsoft 公司 开发 的 服务 器 端的 脚本 环境 ， 是 目前 流行 的 开放 式 Web 应 用 程 
序 开发 技术 。ASP 的 主要 特性 是 能 够 把 脚本 、HTML、 组 件 和 强大 的 Web 数据 库 访问 功能 
结合 在 一 起 ， 形 成 一 个 能 在 服务 器 上 运行 的 应 用 程序 ， 并 把 按 用 户 要 求 专门 制作 的 页 面 传 
给 客户 端 浏览 器 。 

ASP 属于 ActiveX 技术 中 的 服务 器 端 技 术 ， 与 通常 在 客户 端 实现 动态 页 面 的 技术 (如 
Java Applet, ActiveX 控件 和 VBScript 等 ) 不 同 ，ASP 中 的 命令 和 脚本 都 是 在 服务 器 端 解释 
执行 ， 将 执行 后 的 结果 生成 HIML 页 面 并 发 送 给 浏览 器 。 由 于 脚本 在 服务 器 端 执 行 ， 因 而 
开发 者 不 必 担心 浏览 器 是 否 能 执行 脚本 。 同 时 ， 由 于 只 是 将 HTML 页 面 发 送 到 浏览 器 ， 在 
浏览 器 上 看 不 到 ASP 程序 , 因此 可 以 防止 程序 被 窃取 。 另 外 , ASP 还 具有 许多 显著 的 优点 。 
例如 ，ASP 运行 在 Web 服务 器 的 同一 进程 中 ， 能 更 快 、 更 有 效 地 处 理 客户 请 求 ，ASP 提 
供 了 更 简单 、 更 方便 的 数据 库 访问 方法 ， 使 开发 基于 数据 库 驱 动 的 Web 应 用 程序 更 容易 ; 
ASP 支持 VBScript 和 JScript， 并 能 以 插件 形式 支持 其 他 脚本 语言 ， 如 REXX 和 Perl 等 。 

本 书 共 分 13 章 。 第 1 章 介绍 ASP 的 基础 知识 以 及 构建 ASP 开发 环境 的 方法 ， 第 2 章 
介绍 网 页 设计 的 基础 知识 ， 第 3 章 介 绍 ASP 脚本 语言 VBScript 语言 的 基本 语法 ， 第 4 章 、 
第 5 章 、 第 7 章 和 第 10 章 介绍 ASP 对 象 的 基本 知识 和 用 法 ， 第 6 章 介 绍 ASP 常用 服务 器 
组 件 的 使 用 ， 第 8 和 第 9 章 介 绍 ASP 与 Web 数据 库 之 间 的 连接 和 交互 方法 ,第 11 章 介绍 
XML 与 ASP 的 应 用 ， 第 12 章 介绍 ASP 脚本 调试 和 自 定 义 错误 信息 等 ， 第 13 章 通过 4 个 
综合 实例 对 本 书 所 介绍 的 知识 进行 了 贯穿 。 

本 书面 向 学 习 AS 和 网 站 开发 的 初 、 中 级 用 户 , 采用 了 由 浅 入 深 、 循序 渐进 的 讲述 方 
法 ， 在 内 容 编写 上 充分 考虑 到 初学 者 的 实际 需求 ， 通 过 大 量 实用 的 操作 指导 和 有 代表 性 的 
实例 ， 使 读者 直观 、 迅 速 地 了 解 ASP 的 主要 功能 和 动态 网 站 的 制作 方法 。 另 外 ， 读 者 可 以 
通过 各 章 的 习题 来 巩固 书 中 所 学 的 知识 。 

本 书 的 电子 课件 和 实例 源 程序 可 通过 http://www.tupwk.com.cn/downpage 下 载 , 课 后 习 
题 参考 答案 可 发 邮件 至 wkservice@tup.tsinghua.edu.cn 获取 。 

本 书 是 集体 智慧 的 结晶 ， 除 封面 署名 的 作者 外 ， 参 与 本 书 编写 和 制作 的 人 员 还 有 杜 思 
明 、 高 娟 妮 、 方 峻 、 严 晓 雯 、 张 立 浩 、 耿 向 华 、 王 维 、 孔 祥 亮 、 牛 静 敏 、 张 雪琴 等 。 尽 管 
我 们 在 编写 本 书 时 已 尽 了 最 大 努力 ， 但 由 于 各 种 条 件 的 限制 ， 加 之 作者 水 平 有 限 ， 书 中 不 
足 之 处 在 所 难免 ， 希 望 读 者 批评 指正 。 
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第 1 章 m Ê 


随 着 Interne 和 网 络 技术 的 日 益 发 展 ，ASP 逐渐 被 人 们 接受 并 广泛 应 用 。ASP 是 一 个 
基于 Web 服务 器 的 开发 环境 ， 用 户 利用 它 可 以 方便 地 创建 和 执行 动态 、 互 动 且 高 性 能 饼 
Web 服务 器 应 用 程序 。 

通过 本 章 的 理论 学 习 和 练习 ， 用 户 应 了 解 和 掌握 以 下 内 容 : 

e 了 解 ASP 的 技术 特点 

e 了 解 ASP 的 运行 基础 

e 了 解 ASP 的 开发 环境 

e 掌握 安装 与 设置 IIS 的 方法 

e 掌握 创建 ASP 应 用 程序 的 方法 


1.1 ASP 与 动态 网 页 


ASP 内 含 于 IIS(Internet Information Server) 中 ， 是 一 种 Web 服务 器 端的 开发 环境 。 通 
过 在 普通 HTML 页 面 中 嵌入 的 ASP 脚本 语言 ， 可 以 产生 和 执行 动态 的 、 交 互 的 、 高 性 能 
的 Web 应 用 程序 。ASP 采用 脚本 语言 VBScript(JScript) 作 为 自己 的 开发 语言 。 


1.1.1 动态 网 页 


静态 网 页 是 不 包含 程序 代码 的 网 页 ,不 会 在 服务 器 端 执行 .静态 网 页 内 容 通常 以 HIML 
语言 编写 ,在 服务 器 端 以 .htm 或 .html 文件 格式 存储 。 对 于 静态 网 页 ， 服 务 器 不 执行 任何 程 
序 就 把 HTML 页 面 文件 传 给 客户 端的 浏览 器 直接 进行 解读 工作 , 所 以 网 页 的 内 容 不 会 因为 
执行 程序 而 出 现 不 同 的 内 容 。 

动态 网 页 是 指 网 页 内 含有 程序 代码 ， 并 会 被 服务 器 执行 的 网 页 。 用 户 浏览 动态 网 页 须 
由 服务 器 先 执行 网 页 中 的 程序 ， 再 将 执行 完 的 结果 传送 到 用 户 浏览 器 中 。 动 态 网 页 和 静 
态 网 页 的 区 别 在 于 ,动态 网 页 会 在 服务 器 中 执行 一 些 程序 。 由 于 执行 程序 时 的 条 件 不 同 ， 
所 以 执行 的 结果 也 可 能 会 有 所 不 同 ， 最 终 用 户 所 看 到 的 网 页 内 容 也 将 不 同 ， 所 以 称 为 动态 
网 页 。 

1. 动态 网 页 的 页 面 特点 


动态 网 页 发 布 技术 的 出 现 使 得 网 页 从 单纯 的 展示 平台 变 成 了 网 络 交互 平台 ， 能 够 提供 
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如 下 所 示 的 网 页 动态 效果 。 
。 在 网 页 中 添加 一 个 滚动 显示 的 广告 栏 。 


从 HTML 的 表单 中 接收 信息 并 且 存 储 到 数据 库 中 。 


. 
e 根据 不 同 访问 者 显示 不 同 内 容 ， 创 建 个 性 化 主页 。 
. 


在 主页 中 添加 计数 器 。 


e 根据 用 户 浏览 器 的 版 本 、 类 型 和 能 力 显示 不 同 档次 的 内 容 。 

e 跟踪 用 户 网 站 上 的 活动 信息 并 且 存 入 日 志文 件 。 

2. 动态 网 页 的 开发 技术 

目前 动态 网 页 开发 的 3 种 主流 技术 是 ASP、PHP 和 JSP， 这 三 者 各 有 所 长 。 它 们 都 需 
要 把 脚本 语言 嵌入 到 HTML 文档 中 。 这 三 者 的 不 同 之 处 在 于 ，ASP 学 习 简 单 、 使 用 方便 ; 
PHP 软件 免费 ， 运 行 成 本 低 ; JSP 多 平台 支持 ， 转 换 方便 。 

e ASP: ASP 主要 为 HTML 编写 人 员 提供 了 在 服务 器 端 运行 脚本 的 环境 ， 使 HTML 


编写 人 员 可 以 利用 VBScript 和 JScript 或 其 他 第 三 方 脚本 语言 来 创建 ASP， 实 现 有 
动态 内 容 的 网 页 ， 如 计数 器 等 。 


e PHP: PHP 是 一 种 跨 平 台 的 服务 器 端的 嵌入 式 脚本 语言 ， 是 技术 人 员 在 制作 个 


人 主页 的 过 程 中 开发 的 小 应 用 程序 ， 并 经 过 整理 和 进一步 开发 而 形成 的 语言 。 
它 能 使 用 户 独自 在 多 种 操作 系统 下 迅速 地 完成 一 个 简单 的 Web 应 用 程序 。PHP 
支持 目前 绝 大 多 数 数 据 库 ， 并 且 是 完全 免费 的 ， 可 以 从 PHP 官方 站 点 (http: 
/Wwww.php.neD 上 自由 下 载 。 用 户 可 以 不 受 限 制 地 获得 源码 ， 甚 至 可 以 在 其 中 加 
进 自己 需要 的 特色 。 


e JSP: JSP 的 全 称 是 Java Server Pages， 是 由 Sun. 公司 提出 ,多 家 公司 合作 建立 的 一 


种 动态 网 页 技术 。JSP 的 突出 特点 是 其 开放 的 、 跨 平台 的 结构 可 以 运行 在 几乎 所 有 
的 服务 器 系统 上 。JSP 将 Java 程序 段 和 JSP 标记 嵌入 普通 的 HTML 文档 中 。 当 客 
户 端 访问 一 个 JSP 网 页 时 ， 就 执行 其 中 的 程序 段 。Java 是 一 种 成 熟 的 跨 平台 的 程序 
设计 语言 ， 可 以 实现 丰富 强大 的 功能 。 


ASP, PHP 和 JSP 语言 都 是 面向 Web 服务 器 的 技术 ,客户 端 浏览 器 不 需要 任何 附加 的 
软件 支持 , 它们 都 提供 在 HTML 代码 中 混合 某 种 程序 代码 ,由 语言 引擎 解释 执行 程序 代码 
的 能 力 。 

TE ASP, PHP 和 JSP 环境 下 ，HTML 代码 主要 负责 描述 信息 的 显示 样式 ， 而 程序 代码 
则 用 来 描述 处 理 逻 辑 。 普 通 的 HTML 页 面 只 依赖 于 Web 服务 器 ， 而 ASP, PHP 和 JSP 页 
面 需 要 附加 语言 引擎 分 析 和 执行 程序 代码 。 程序 代码 的 执行 结果 被 重新 嵌入 到 HTML 代码 
中 ， 然 后 一 起 发 送 给 浏览 器 。 


1.1.2 ASP 


ASP(Active Server Pages) 是 一 套 由 Microsoft 公司 开发 的 服务 器 端 脚本 执行 环境 。ASP 
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F IIS 3.0 以 上 版 本 中 ， 利 用 ASP 用 户 可 以 结合 HTML 网 页 、ActiveX 组 件 和 ASP 指 
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令 建 立 动态 、 交 互 的 Web 应 用 程序 。 本 节 作为 全 书 的 开端 将 通过 简单 的 描述 ， 重 点 介绍 
ASP 的 技术 特点 和 运行 基础 ， 为 下 面 的 学 习 提 供 必 要 的 理论 支持 。 


1. 


ASP 的 技术 特点 


ASP 技术 是 一 种 开放 的 ， 无 需 编译 的 应 用 环境 ， 开 发 者 可 以 用 HTML. Script 以 及 可 
以 被 重复 使 用 的 ASP 组 件 创建 出 动态 的 、 功 能 强大 的 并 且 基 于 Web 的 网 页 解决 方案 。 总 
结 其 技术 特点 有 以 下 几 个 方面 。 


II 


可 以 使 用 VBScript 和 JavaScript 等 脚本 语言 ， 并 同时 结合 HTML 代码 快速 地 制作 
出 功能 强大 的 网 页 应 用 程序 。 


可 以 与 任何 ActiveX Scripting 语言 兼容 。 


e 独立 于 浏览 器 ， 网 站 的 访问 者 只 需要 在 自己 的 客户 端 浏览 器 上 执行 HTML 代码 即 


2. 


可 浏览 ASP 页 面 。 
面向 对 象 的 设计 ，ASP 技术 拥有 良好 的 可 扩充 性 。 

良好 的 保密 性 ，ASP 源 程序 不 会 因为 客户 端的 访问 而 泄漏 。 

简单 的 编写 环境 , 开发 人 员 使 用 普通 的 文本 编辑 器 即 可 进行 ASP 页 面 的 设计 与 编写 。 
ASP 的 技术 功能 


从 应 用 的 角度 看 ， 利 用 ASP 工作 时 几乎 不 存在 任何 限制 。 用 户 可 以 参照 如 下 的 ASP 
技术 的 典型 应 用 介绍 来 了 解 ASP 技术 的 具体 功能 。 


3. 


在 网 页 中 添加 计数 器 、 留 言 本 、 公 告 板 、 聊 天 室 等 功能 ， 实 现 以 前 的 CGI(Common 
Gateway Interface) 程 序 的 所 有 功能 。 

根据 客户 端 浏 览 器 的 版 本 、 类 型 以 及 处 理 能 力 显示 不 同 档次 的 页 面 内 容 。 使 用 户 可 
以 最 大 程度 地 欣赏 网 站 所 提供 的 网 页 信息 。 

从 客户 端 浏览 器 提交 的 HTML 表单 中 接收 信息 并 能 够 联系 数据 库 系 统 ， 及 时 地 做 
出 响应 。 

在 网 页 中 添加 滚动 显示 的 广告 栏 或 标题 内 容 信息 。 

根据 访问 者 的 需求 显示 不 同 的 页 面 内 容 。 

实现 网 站 内 多 个 页 面 之 间 的 信息 共享 。 

读 写 服务 器 文件 ， 实 现 网 站 主页 访问 人 次 计数 等 功能 。 

跟踪 用 户 网 站 中 的 活动 信息 并 存 入 日 志文 件 ， 记 录 访 问 者 的 访问 行为 。 

ASP 的 运行 环境 


ASP 常用 的 运行 环境 是 Microsoft Internet Information Server version 3.0/4.0 on Windows 
NT Server(Windows NT 服务 器 ) 和 Microsoft Personal Web Server on Windows 95/98(Windows 
95/08 环境 )。 也 就 是 说 ， 在 Windows 95/98/2000/XP 环境 中 都 可 以 使 用 ASP。 

另外 ， 在 Windows 95/98 环境 中 使 用 ASP 需要 用 户 手动 安装 PWS(Microsoft Personal 
Web Server), fE Windows 2000/XP 环境 中 则 需要 安装 IIS(Microsoft Internet Information 
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Server)。 因 为 本 书 将 以 Microsoft Internet Information Server version 3.0/4.0 on Windows NT 
Server 环境 为 基础 介绍 ASP 的 使 用 ， 在 后 面 的 章节 中 将 会 介绍 IIS 的 安装 与 使 用 。 
4. ASP 的 适用 环境 


虽然 ASP 技术 功能 强大 , 在 管理 和 维护 方面 有 着 显著 的 优势 , 但 也 并 非 适 用 于 任何 环 
境 。 例如， 在 UNIX 主机 上 虽然 可 以 使 用 ASP， 但 是 由 于 ASP 是 Microsoft 公司 基于 NT 
环境 所 开发 的 技术 ， 在 UNIX 系统 中 难免 会 出 现 问 题 。 

另外 , 由 于 ASP 可 以 实现 以 往 CGI 的 所 有 功能 , 如 果 设 计 者 对 CGI 语言 (Perl 和 C 等 ) 
不 是 十 分 熟悉 ， 可 以 考虑 使 用 ASP 技术 。 因 为 ASP 所 使 用 的 VBScript 相对 比较 容易 。 但 
是 如 果 CGI 程序 需要 在 UNIX 主机 上 运行 ， 最 好 选择 例如 Perl 这 种 同时 支持 NT 和 UNIX 
环境 的 编写 语言 ， 方 便 日 后 进行 程序 移植 。 
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在 进行 ASP 网 页 开发 之 前 ， 首 先 必 须 在 本 地 计算 机 上 搭建 编译 ASP 动态 网 页 所 需 的 
软件 环境 ， 包 括 配置 本 地 计算 机 IP 地 址 、 安 装 与 设置 IS， 以 及 创建 虚拟 目录 等 一 系列 的 
操作 。 本 书 将 以 Windows XP 操作 系统 自 带 的 IS 为 例 ， 来 讲述 其 安装 和 配置 方法 。 


1.2.1 配置 Internet 服务 器 


在 这 一 节 中 ， 将 详细 介绍 如 何 配置 一 台 具 有 WWW 服务 功能 的 Internet 服务 器 的 第 一 
个 步骤 ， 即 设置 本 地 计算 机 的 IP 地 址 。 


1. IP 地 址 简介 


所 谓 IP(Internet Protocol) 地 址 实际 上 就 是 一 种 用 于 标记 网 络 节点 和 指定 路 由 选择 信息 
的 方式 。 —^ IP 地 址 被 用 来 标识 网 络 中 的 一 个 通信 实体 , 例如 一 台 主 机 , 或 是 路 由 器 的 某 
一 个 端口 。 而 在 基于 IP 协议 网 络 中 传输 的 数据 包 ， 也 都 必须 使 用 IP 地 址 来 进行 标识 ， 如 
同 我 们 写 一 封 信 ， 要 标明 收 信人 的 通信 地 址 和 发 信人 的 地 址 ， 邮 政工 作 人 员 则 通过 该 地 址 
来 决定 邮件 的 去 向 。 因此 对 于 联 入 网 络 的 计算 机 而 言 ,必须 给 它们 分 配 唯 一 的 下 地 址 以 保 
证 其 在 网 络 中 的 唯一 性 。 

通常 , IP 地 址 由 网 络 标识 符 与 网 络 管理 员 分 配 的 唯一 主机 标识 符 组 成 。IP 地 址 的 表示 
方法 是 带 小数 点 的 十 进 制 记 数 法 ,其 中 每 8 位 字 节 的 十 进 制 值 用 .号 分 隔 , 例如 192.168.0.1 
或 167.0.0.11 等 。 

2. 配置 IP 地 址 


为 本 地 计算 机 配置 IP 地 址 的 前 提 是 计算 机 上 必须 安装 有 网 络 适配器 (网 卡 )。 下 面 以 


mix 导 论 I5. 


Windows XP 操作 系统 为 例 ， 介 绍 为 网 卡 配置 P 地 址 的 基本 方法 。 


【练习 1-1] Æ Windows XP 操作 系统 中 设置 本 地 计算 机 的 IP 地 址 为 192.168.0.81, F 
网 掩 码 为 255.255.255.0， 默 认 网 关 为 192.168.0.1。 

(1) 选择 “开始 ”|“ 设 置 ”|“ 控 制 面板 ”命令 ,在 打开 的 “控制 面板 ”窗口 中 双击 “网 
络 连接 ” 图标， 打开 “网 络 连 接 ” 窗口。 

(2) 在 “网 络 连 接 ” 窗 口中 右 击 “ 本 地 连接 ”图 标 ， 在 弹出 的 快捷 菜单 中 选择 “属性 ” 
命令 ， 打 开 “ 本 地 连接 属性 ”对 话 框 。 

(3) 选择 “常规 ”选项 卡 ， 在 “此 连接 使 用 下 列 项 目 ” 列 表 框 中 选择 “Internet 协议 
(TCP/IP)” 选 项 ， 如 图 1-1 所 示 ， 然 后 单 击 “ 属 性 ”按钮 打开“Internet 协议 (TCP/IP) 属 
性 ”对 话 框 。 

(4) 选中 “使 用 下 面 的 了 P 地址 ” 单 选 按钮 ， 然 后 在 “IP 地 址 ”文本 框 中 输入 为 本 地 计 
算 机 设 定 的 IP 地址 192.168.0.81， 在 “ 子 网 掩 码 ” 文 本 框 中 输入 子 网 掩 码 255.255.255.0， 
在 “默认 网 关 ” 文 本 框 中 输入 默认 网 关 地 址 192.168.0.1， 如 图 1-2 所 示 。 

(5) 完成 设置 后 ， 单 击 “ 确 定 ” 按 钮 保存 设置 ， 然 后 重新 启动 系统 即 可 。 
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图 1-1 “本 地 连接 属性 ”对 话 框 图 1-2 — "Internet 协议 (TCP/IP) 属 性 ”对 话 框 


注意 : 
在 为 本 地 计算 机 设置 IP 地 址 时 ， 某 些 特殊 的 IP 地 址 因为 在 网 络 中 具有 特别 的 作用 ， 
因此 不 能 使 用 。 这 些 IP 地 址 包括 127.X.X.X、0.X.X.X、224.X.X.X~255.X.X.X。 
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ASP 程序 是 运行 于 网 络 服务 器 端的 一 种 应 用 程序 ,， 想 要 正常 运行 ASP 程序 , 还 需要 在 
完成 Internet 服务 器 IP 地 址 的 设置 工作 后 建立 ASP 的 运行 环境 。 常 用 的 支持 ASP 的 网 络 
服务 器 有 PWS(Personal Web Server) 和 IIS(Internet Information Server)。 因 为 应 用 PWS 的 
Windows 95/98 操作 系统 目前 已 经 被 淘汰 ， 下 面 将 重点 介绍 在 Windows 2000/XP 操作 系统 
中 安装 与 配置 IS 的 方法 。 
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1. 安装 1IS 


IIS 内 建 了 ASP 的 编译 引擎 , 如 果 用 户 使 用 Windows 2000 或 更 新 的 Windows NT 版 本 
操作 系统 ， 由 于 IIS 是 随 系统 内 置 的 服务 组 件 ， 因 此 不 需要 再 重新 安装 IS。 但 如 果 用 户 计 
算 机 上 安装 的 是 Windows 2000/XP Professional( 专 业 版 )， 则 仍 需 要 手动 安装 并 配置 S 服 
务 。 

在 Windows 2000/XP 操作 系统 上 , 通常 选择 IIS 5.0/5.1 作为 ASP 得 以 运行 的 网 络 服务 
器 。 在 安装 时 ， 用 户 可 以 使 用 Windows 安装 光盘 进行 设置 。 


【练习 1-2】 在 Windows 2000/XP 系统 中 安装 IIS 服务 。 

(1) 选择 “开始 ”| “设置 ”|“ 控 制 面板 ”命令 ， 在 打开 的 “控制 面板 ”窗口 中 双击 “ 添 
加 /删除 程序 ”图 标 ， 打 开 “ 添 加 /删除 程序 ”窗口 ， 如 图 1-3 所 示 。 

(2) 单 击 “ 添 加 /删除 Windows 组 件 ” 按 钮 ， 打 开 “Windows 组 件 向 导 ” 对 话 框 。 

G) Æ “Windows 组 件 向 导 ” 对 话 框 的 “组 件 ”列表 框 中 选择 “Intemet 信息 服务 (IIS)” 
选项 (如 图 1-4 所 示 )， 然 后 单 击 “ 下 一 步 ” 按 钮 ， 并 在 光盘 驱动 器 中 放 入 Windows 2000/XP 
安装 光盘 ， 即 可 开始 安装 文件 和 配置 系统 参数 。 
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图 1-3 “添加 /删除 程序 ”窗口 图 1-4 “Windows 组 件 ” 对 话 框 


(4) 完成 IIS 组 件 的 安装 后 ， 重 新 启动 系统 。 
2. 配置 IIS 


通过 在 “控制 面板 ”窗口 中 双击 “管理 工具 ”图 标 ， 然 后 在 打开 的 窗口 中 再 次 双击 
"Internet 信息 服务 ”图 标 ( 如 图 1-5 所 示 ), 可 以 启动 IS 的 配置 主 界面 (“Internet 信息 服务 ” 
窗口 )。 在 该 界面 中 右 击 “默认 网 站 ”选项 ， 在 弹出 的 快捷 菜单 中 可 以 选择 “暂停 ”、“ 停 
IE" 或 “启动 ”命令 ， 来 控制 默认 的 Web 站 点 的 运行 状态 ， 也 可 以 选择 “新 建 ”|“ 虚 拟 
目录 ”命令 ， 发 布 一 个 新 的 Web 站 点 ， 还 可 以 对 某 个 Web 站 点 进行 “服务 器 扩展 检查 ” 
来 提高 us 的 安全 性 ， 如 图 1-6 所 示 。 


图 1-5 “Internet 信息 服务 ”图 标 图 1-6 ms 的 配置 管理 主 界面 


注意 : 

IIS 服务 提供 各 种 Internet 服务 , 例如 FTP 文件 传输 、 发 送 电 子 邮件 的 SMTP 和 网 页 浏 
览 的 网 站 服务 等 。 当 用 户 使 用 HIS 支持 ASP 网 站 开发 时 ， 所 有 的 网 页 都 必须 放 在 IIS 配置 
界面 的 “网 站 ”服务 功能 下 的 目录 中 。 通 过 浏览 器 浏览 特定 网 页 时 ，IIS 会 根据 其 指定 的 网 
址 取出 对 应 的 文件 ， 并 在 解析 后 由 Internet 传送 至 用 户 计 算 机 的 浏览 器 中 。 


如 果 要 进一步 配置 当前 Web 站 点 , 可 以 在 图 1-6 所 示 的 右键 菜单 中 选择 “属性 ”命令 ， 
然后 参照 下 面 的 方法 进行 操作 。 


【练习 1-3】 在 “Internet 信息 服务 ”窗口 中 配置 IS. 

(1) 在 图 1-6 所 示 的 “Internet 信息 服务 ”窗口 中 右 击 “默认 网 站 ”选项 ， 在 弹出 的 快 
捷 菜 单 中 选择 “属性 ”命令 ， 打 开 “ 默 认 网 站 属性 ”对 话 框 。 

(2) 选择 “网 站 ”选项 卡 ， 可 以 设置 该 站 点 的 描述 、 服 务 器 的 IP 地 址 和 Web 服务 所 使 
用 的 TCP 端口 等 参数 ， 还 可 以 设置 连接 超时 和 日 志 记 录 等 项 目 ， 如 图 1-7 所 示 。 

(3) 选择 “ 主 目录 ”选项 卡 ， 可 以 设置 Web 站 点 在 服务 器 上 的 物理 路 径 ， 并 且 可 以 进 
行 访问 权限 的 设置 ， 如 “ 读 取 ”、“ 写 入 ”、“ 目 录 浏 览 ”、“ 记 录 访 问 ”、“ 脚 本 资源 
访问 ”和 “索引 资源 ”属性 ， 如 图 1-8 所 示 。 
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图 1-7 “网 站 ”选项 卡 图 1-8 “ 主 目录 ”选项 卡 


(4) 在 “ 主 目录 ”选项 卡 中 单 击 “ 配 置 ” 按 钮 ， 在 打开 的 “应 用 程序 配置 ”对 话 框 中 选 
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择 “ 调 试 ”选项 卡 ， 然 后 选中 “启用 ASP 服务 器 脚本 调试 ”和 “启用 ASP 客户 端 脚本 调试 
复 选 框 ， 可 以 在 对 ASP 应 用 程序 进行 调试 的 过 程 中 让 系统 提供 调式 帮助 ， 如 图 1-9 所 示 。 

(5) 在 “默认 网 站 属性 ”对 话 框 中 选择 “文档 ”选项 卡 (如 图 1-10 所 示 )， 可 以 设置 当 
客户 端 对 该 Web 站 点 请 求 连接 时 默认 启动 的 HTML 页 面 或 ASP 应 用 程序 。 选择 “目录 安 
全 性 ”选项 卡 可 以 设置 “匿名 访问 和 身份 验证 控制 ”和 “安全 证 书 ”， 以 确保 管理 信息 系 
统 运行 的 安全 性 。 
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图 1-9 “应 用 程序 配置 ”对 话 框 图 1-10 “ 主 目录 ”选项 卡 


(6) 完成 设置 后 ， 在 “默认 网 站 属性 ”对 话 框 中 单 击 “ 确 定 ” 按 钮 。 
3. 测试 IIS 


在 完成 IS 的 安装 与 设置 后 ， 在 浏览 器 中 输入 http://localhost If, IIS 将 自动 获取 本 地 
计算 机 上 “默认 网 站 ”目录 下 存放 的 网 页 文件 Defaultasp)， 然 后 将 其 解析 后 传送 至 浏览 器 
显示 。 用 户 可 以 利用 IS 的 这 一 特点 来 测试 IIS 服务 器 工作 是 否 正常 。 

IIS 默认 网 站 的 文件 目录 列表 和 与 其 对 应 的 目录 C:inetpubvwwwroot 中 的 内 容 大 致 是 相 
互 对 应 的 关系 。 也 就 是 说 ， 在 Ci\inetpubWwwwwroot 目录 中 创建 的 任何 .asp 文件 和 包含 asp 
文件 的 文件 夹 都 可 以 在 “Intemet 信息 服务 ”窗口 中 找到 。 如果 要 在 浏览 器 中 显示 这 些 文件 ， 
只 需 在 地 址 栏 中 输入 http://localhost 字符 串 ， 并 在 其 后 加 上 其 相对 路 径 和 文件 名 即 可 。 例 
如 ， 要 浏览 IS 安装 时 在 C:\inetpub\wwwroot 目录 中 自动 产生 的 网 页 文件 iisstartasp， 只 需 
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览 器 中 显示 IIS 默认 网 站 文件 夹 中 的 ASP 网 页 
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1.3 创建 ASP 应 用 程序 


ASP 实际 上 是 将 标准 的 HTML 文件 扩展 了 一 些 附 加 特征 ， 它 像 标 准 的 HIML 文件 一 
样 包含 HTML 语句 并 且 最 终 在 浏览 器 上 解释 并 显示 。ASP 文件 的 后 缀 为 .asp， 其 中 包含 实 
现 动态 功能 的 VBScript EÈ JScript 语句 ， 如 果 去 掉 那 些 VBScript 或 JScript 语句 ， 它 和 标准 
的 HTML 文件 没有 任何 区 别 。 


1.3.1 创建 虚拟 目录 


在 创建 ASP 应 用 程序 之 前 ， 若 要 从 主 目录 外 的 目录 发 布 网 页 ， 则 可 通过 创建 虚拟 目录 
来 进行 。 虚 拟 目录 是 指 物理 上 未 包含 在 主 目录 中 的 目录 ， 但 浏览 器 却 认为 该 目录 包含 在 主 
目录 中 。 


【练习 1-4】 在 C:\Inetpubvwwwroot 目录 中 创建 为 一 个 名 为 test 的 虚拟 目录 。 

(1) 在 如 图 1-6 所 示 的 “Internet 信息 服务 ”窗口 中 ， 右 击 左 侧 的 “默认 网 站 ”选项 ， 
在 弹出 的 快捷 菜单 中 选择 “新 建 ” | “虚拟 目录 ” 命令， 打开“ 虚拟 目录 创建 向 导 ” 对 话 框 ， 
如 图 1-12 所 示 。 

(2) 单 击 “ 下 一 步 ” 按 钮 ， 输 入 虚拟 目录 别名 (例如 test)， 也 就 是 在 访问 网 页 时 需要 输 
入 的 名 称 ， 如 图 1-13 所 示 。 别 名 一 般 比 目录 的 路 径 名 短 ， 更 便于 用 户 输入 ， 也 更 安全 。 
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图 1-12 打开 “虚拟 目录 创建 向 导 ” 对 话 框 图 1-13 输入 虚拟 目录 名 称 


(3) 单 击 “ 下 一 步 ”按钮 ， 输 入 虚拟 目录 的 路 径 C:\Inetpubvwwwroot， 如 图 1-14 所 示 ， 
以 后 就 可 通过 虚拟 名 称 来 访问 该 目录 中 的 文件 了 。 

(4) 单 击 “ 下 一 步 ”按钮 ， 进 入 权限 设置 步骤 ， 为 了 保证 网 站 的 安全 ， 只 需 选 择 前 3 
个 复 选 框 (“ 读 取 ”、“ 运 行 脚本 ”和 “执行 ” 复 选 框 ) 就 可 以 了 ， 如 图 1-15 所 示 。 
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图 1-14 “虚拟 目录 创建 向 导 ” 对 话 框 图 1-15 访问 权限 设置 


(5) 单 击 “ 下 一 步 ”按钮 ， 在 打开 的 “已 成 功 完 成 虚拟 目录 创建 向 导 ” 对 话 框 中 单 击 
“完成 ”按钮 ， 完 成 虚拟 目录 创建 。 


1.3.2 ”创建 ASP 网 页 


下 面 以 【练习 1-4】 建 立 的 虚拟 目录 为 基础 ， 通 过 实例 介绍 创建 ASP 网 页 的 方法 和 编 
写 ASP 程序 的 注意 事项 。 
1. 创建 ASP 应 用 程序 


在 ASP 程 序 中 ,脚本 通过 分 隔 符 将 文本 和 HTML 标记 区 分 开 来 .ASP 用 分 隔 符 <% 和 %> 
来 包括 脚本 命令 。ASP 文件 中 一 般 包 含 HTML PR VBScript 或 JScript 语言 的 程序 代码 
以 及 ASP 语法 。 


【练习 1-5】 以 【练习 1-4】 创 建 的 虚拟 目录 test 为 基础 ， 使 用 记事 本 编写 一 个 查看 系 
统 时 间 的 ASP 程序 。 

(1) 选择 “开始 ”|“ 所 有 程序 ”|“ 附 件 ”|“ 记 事 本 ”命令 ， 打 开 记事 本 。 

(2) 输入 以 下 代码 (如 图 1-16 所 示 ): 


<Html> 
<Body> 
您 访问 本 页 面 的 时 间 是 <%=Time0%>! 
</Body> 
</Html> 


(3) 选择 “文件 ”| “另存 为 ”命令 ,将 该 文件 命名 为 test time.asp, 并 保存 至 C:\Inetpub\ 
wwwroot 文件 夹 中 。 

注意 : 

本 书 中 所 有 AS 应 用 程序 都 是 通过 步骤 (1) ~ (3) 来 创建 的 ， 并 保存 至 Ci\Inetpub\ 
wwwroot 文 件 夹 中 ， 因 此 ， 在 后 面 的 章节 中 只 给 出 相应 ASP 程序 的 详细 代码 。 
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(4) 启动 人 正 浏览 器 ， 在 地 址 栏 中 输入 http://localhost/test/test_time.asp， 按 下 Enter 键 ， 
其 运行 效果 如 图 1-17 所 示 。 


文件 下 MEV ELO SEV Sb 
ntn» 


«Body» 
得 访问 本 页 面 的 时 间 是 人-Time(C)321 
/Bady> 
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图 1-16 输入 代码 图 1-17 查看 系统 时 间 的 网 页 效果 


注意 : 
【练习 1-5】 所 示 的 例子 是 在 标准 HTML 页 面 代码 中 嵌入 了 VBScript 代码 ，<% 和 %> 
符号 之 间 的 内 容 即 是 VBScript 代码 ，Time() 运 行 的 结果 就 是 显示 当前 时 间 。 执 行 时 ，Web 
服务 器 将 <%=Time(09%6> 替 换 为 当前 时 间 ， 然 后 将 结果 返回 到 浏览 器 中 。 


(5) 右 击 C:\Inetpubvwwwroot 文件 夹 中 的 test time.asp 文件 , 在 弹出 的 快捷 菜单 中 选择 
“打开 方式 ”|“ 记 事 本 ”命令 ， 打 开 记事 本 ， 如 图 1-18 所 示 。 


<Body> 
您 读 移 本 页 面 的 时 间 是 cs-Tine Oo 
Peer 人 


图 1-18 打开 ASP 文件 


(6) 在 记事 本 中 ， 修 改 代码 如 下 所 示 ( 如 图 1-19 Pra): 


<Html> 

<Body> 

<%For I-1 To 6%> 

«Font Size="<%=I%>"> 您 访问 本 页 面 的 时 间 是 <%=Time0%>! </Font><Br> 
<%Next%> 

</Body> 

</Html> 


(7) 选择 “文件 ”|“ 另 存 为 ”命令 ,命名 文件 为 test_timel.asp, 并 保存 至 C:\Inetpub\Wwwwroot 
文件 夹 中 。 
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(8) 在 浏览 器 的 地 址 栏 中 输入 http://localhost/test/test_timel.asp， 按 下 Enter 键 ， 其 运行 


图 1-19 修改 代码 图 1-20 修改 后 的 效果 


2. 编写 ASP 程序 的 注意 事项 


在 编写 ASP 程序 时 ， 需 要 注意 以 下 事项 。 
(1) 在 ASP 程序 中 ， 字 母 不 分 大 小 写 。 用 户 可 根据 自己 的 习惯 ， 自 由 选择 代码 的 输入 
形式 。 
(2) 在 ASP 中，<% 和 %> 符 号 的 位 置 是 相对 随便 的 ， 可 以 和 ASP 语句 放 在 一 行 ， 也 可 
以 单独 成 为 一 行 。 例 如 下 面 3 种 写法 效果 都 是 一 样 的 : 
«For I-1 To 696» 
<% 


ForI-1 To 6 


%> 


<%For I-1 To 6 
Lx 
(3) ASP 语句 必须 分 行 写 ， 不 能 将 多 条 ASP 语句 写 在 一 行 里 ， 也 不 能 将 一 条 ASP 语句 
写 在 多 行 里 。 例 如 ， 下 面 的 两 个 例子 都 是 错误 的 : 


<% a-2 b=3 %> 


(4) 如 果 一 条 ASP 语句 过 长 ， 需 要 换行 时 可 采用 两 种 方法 。 一 种 方法 是 可 以 不 用 Enter 
键 分 开 ， 而 是 直接 书写 ， 使 之 自动 换行 ， 另 一 种 方法 是 用 Enter 键 将 该 语句 分 成 多 行 ， 只 
是 必须 在 每 行 末尾 (最 后 一 行 除 外 ) 加 一 个 下 划 线 ， 如 下 面 的 例子 : 
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«oif time <#12:00# and time>=#00:00:00# then 
strGreeting=" 欢 迎 来 访 ! 这 里 是 我 们 最 新 制作 的 网 站 _ 
早上 好 ! 欢迎 你 在 参观 后 提出 宝贵 的 意见 " %> 
(5) Æ ASP 中 , 使 用 REM 或 “” 符 号 来 标记 注释 语句 ,运行 时 ASP 不 执行 注释 语句 。 
在 代码 中 添加 注释 主要 是 为 了 方便 自己 和 别人 阅读 程序 代码 ， 如 下 面 的 例子 
<% 
REM 这 是 一 条 注释 语句 ! 
' 这 是 另 一 条 注释 语句 ! 
%> 
另外 ,在 编辑 ASP 程序 代码 时 ， 要 养 成 良好 的 书写 习惯 ， 例 如 可 以 为 代码 添加 上 恰当 
的 缩 进 。 这 样 ， 以 后 自己 和 别人 阅读 起 来 都 方便 一 些 ， 否 则 代码 很 不 容易 读 懂 ， 缩 进 的 方 
法 可 以 参考 本 书 中 的 代码 书写 样式 。 


14 J 题 


1.4.1 填空 题 


(1) ASP 主要 为 HTML 编写 人 员 提 供 了 在 服务 器 端 运行 脚本 的 环境 , 使 HTML 编写 人 
员 可 以 利用 和 或 其 他 第 三 方 脚本 语言 来 创建 ASP， 实 现 有 动态 内 
容 的 网 页 。 

(2) ASP 程序 的 脚本 不 是 在 客户 端 运行 的 , 传送 到 浏览 器 上 的 Web 页 是 在 
上 生成 的 。 

G) ris 允许 在 一 台 计 算 机 上 创建 多 个 Web 站 点 ， 这 些 站 点 可 以 共同 使 用 一 个 全 地 址 同 


时 提供 信息 发 布 服务 。 它 的 实现 方法 是 为 不 同 网 站 指定 一 个 不 同 的 来 加 以 区 分 。 
(4) ASP 文件 的 后 缀 为 ə 
(5) ASP 用 分 隔 符 来 包括 脚本 命令 。 

14.2 ”选择 题 


(1) 下 面 关 于 动态 网 页 的 说 法 不 正确 的 是 ( )。 

A. 可 从 HTML 的 表单 中 接收 信息 并 且 存 到 数据 库 中 
. 可 根据 不 同 访问 者 显示 不 同 内容 ， 创 建 个 性 化 主页 
. 可 跟踪 用 户 网 站 上 的 活动 信息 并 且 存 入 日 志文 件 
. 需要 浏览 器 执行 网 页 中 动态 效果 的 程序 


= 0 $ 


*]14* 


ASP 动态 网 站 开发 教程 (第 三 版 ) 


O 在 ASP 文件 中 ， 不 可 以 包含 以 下 0。 ) 内 容 。 


A. HTML 标记 B. VBScript 或 JScript 语言 的 程序 代码 
C. ASP 语法 D. 声音 、 图 像 等 多 媒体 


(3) 下 面 关 于 编写 ASP 程序 ， 说 法 不 正确 的 是 ( — 0). 


1.4.3 


A. <% 和 %> 符 号 必须 和 ASP 语句 放 在 一 行 

B. ASP 语句 必须 分 行 写 ， 不 能 将 多 条 ASP 语句 写 在 一 行 里 
C. 使 用 REM 或 “'” 符 号 来 标记 注释 语句 

D. 在 ASP 程序 中 ， 字 母 不 分 大 小 写 


问答 题 


(1) 简 述 ASP 的 特点 及 好 处 。 

(2) 简 述 当 客户 请 求 访问 一 个 ASP 网 页 时 ， 服 务 器 相应 的 处 理工 作 流程 。 
(3) 试 说 明 如 何在 Windows XP 下 安装 IIS 服务 。 

(4) 试 说 明 如 何 设 定 IS 的 默认 浏览 文件 。 


1.4.4 


操作 题 


(1) 参照 本 章 【 练 习 1-1] ~ [EJ 1-4】 所 示 的 操作 ， 在 当前 计算 机 上 配置 一 个 ASP 
开发 环境 ， 并 创建 一 个 名 为 Test 的 虚拟 目录 。 

D 参考 本 章 【 练 习 1-5】 的 操作 ， 在 记事 本 中 输入 下 面 的 程序 代码 ， 然 后 在 上 题 创 建 
的 ASP 环境 中 运行 。 完 成 操作 后 ， 思 考 代码 各 语句 的 含义 和 用 法 ， 并 通过 调整 当前 系统 的 
时 间 查 看 其 运行 效果 。 


<html> 

<body> 

当前 时 间 是 <%=Time0%><br> 

<% 

if time <#12:00# and time>=#00:00:00# then 
response.write" E! " 

ElseIf Time<#19:00:00# and time >=#12:00:00# then 
response.write" 下午! " 

Else 
response.write" iý E! " 

End if 

%> 

</body> 

</html> 
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掌握 HTML 语言 是 制作 网 页 的 基础 。HTML 文件 包含 了 所 有 显示 在 网 页 中 的 内 容 信 
息 ， 例 如 文本 的 位 置 ， 网 页 的 显示 模式 以 及 网 页 图 片 、 动 画 和 声音 等 资源 的 设置 。 本 章 将 
通过 介绍 HTML 语言 的 各 种 标记 和 语法 ， 介 绍 制作 网 页 的 基础 知识 。 

通过 本 章 的 理论 学 习 和 练习 ， 用 户 应 了 解 和 掌握 以 下 内 容 : 

e 了 解 使 用 HIML 语言 设计 静态 网 页 的 方法 
掌握 编辑 网 页 文本 格式 的 方法 
掌握 创建 超 链接 的 方法 
掌握 表格 和 列表 的 使 用 方法 


2.1 认识 网 页 


网 页 是 用 一 种 叫做 HTML 的 标记 语言 来 表示 的 ， 它 将 要 表示 的 信息 语言 用 HTML 表 
述 出 来 , 这 就 形成 了 HTML 代码 。 而 浏览 器 的 主要 工作 就 是 将 这 些 标记 语言 “翻译 ”过 来 ， 
并 按照 定义 的 格式 显示 ， 这 就 是 最 终 看 到 的 网 页 。 


2.1.1. 网 页 的 基础 知识 


Internet 是 从 Interconnected Networks 延伸 而 来 的 ， 是 跨国 界 的 网 络 。Internet 把 世界 各 
地 数 以 千 万 计 的 计算 机 和 传输 线路 连接 在 一 起 构成 一 个 网 络 。 通 过 它 可 以 交换 信息 、 共 享 
资源 ， 并 以 此 为 基础 实现 各 种 计算 机 通信 应 用 项 目 。 在 Intemet 中 ， 网 页 是 它 的 重要 组 成 
部 分 ， 本 节 首 先 介绍 一 些 与 网 页 相关 的 名 词 和 概念 。 

1. 万 维 网 (WWW) 


WWW(World Wide Web) 即 环球 信息 网 ， 也 可 以 称 为 Web， 中 文 名 字 为 “万 维 网 ”。 
用 户 在 使 用 浏览 器 访问 Web 的 过 程 中 , 无 需 关心 一 些 技术 性 的 细节 即 可 得 到 丰富 的 信息 资 
料 。WWW 是 Internet 上 发 展 最 快 ， 目 前 使 用 最 广泛 的 一 种 服务 。 

简单 地 说 , WWW 是 漫游 Internet 网 络 的 工具 , 它 把 Internet 上 不 同 地 点 的 相关 信息 聚 
集 起 来 ， 通 过 WWW 浏览 器 (例如 IE, Internet Explorer) 检 索 ， 无 论 用 户 所 需 的 信息 在 什么 
地 方 ， 只 要 浏览 器 为 用 户 检索 到 之 后 ， 就 可 以 将 这 些 信 息 (文字 、 图 片 、 动 画 和 声音 等 )“ 提 
取 ” 到 用 户 的 计算 机 屏幕 上 。 
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2. 超 文本 传输 协议 (HTTP) 


HTTP(HyperText Transfer ProtocoD) 即 超 文本 传输 协议 ， 是 WWW 服务 器 上 使 用 的 最 主 
要 协议 。 通过 这 一 跨 平台 的 通信 协议 , 在 WWW 任何 平台 上 的 计算 机 都 可 以 阅读 远方 服务 
器 (Server) 上 的 同一 文件 。 

HTTP 协议 经 常用 来 在 网 络 上 传送 Web 页 。 当 用 户 以 http:// 开 始 一 个 超 链 接 的 名 字 时 ， 
就 是 告诉 浏览 器 去 访问 使 用 HTTP 协议 的 Web 页。 

HTTP 协议 不 仅 能 保证 正确 传输 超 文 本 文档 ， 还 可 以 确定 传输 文档 中 的 哪 一 部 分 ， 以 
及 哪 部 分 内 容 首先 显示 (如 文本 先 于 图 形 ) 等 。 

3. 统一 资源 定位 器 (URL) 


URL(Uniform Resource Locator) 即 统一 资源 定位 器 , 它 使 用 数字 和 字母 来 代表 网 页 文件 
在 网 上 的 地 址 。 URL 好 比 Internet 的 门牌 号 码 , 可 以 帮助 用 户 在 Internet 的 信息 海洋 中 查找 
到 所 需要 的 资料 。 

Web 上 所 能 访问 的 资源 都 有 唯一 的 URL。URL 包括 所 用 的 传输 协议 、 服 务 器 名 称 、 
文件 的 完整 路 径 。 例 如 ,在 浏览 器 的 URL 处 输入 http://www.sohu.com/index.html 就 可 以 访 
问 搜狐 网 站 的 主页 。 

URL 的 第 一 部 分 http:// 表 示 要 访问 的 资源 类 型 。 其 他 常见 资源 类 型 中 ，ftp:// 表 示 FTP 
服务 器 ，gopher:// 表 示 Gopher 服务 器 ，new:// 表 示 Newgroup 新 闻 组 。 

第 二 部 分 www.sohu.com 是 主机 名 , 它 说 明了 要 访问 服务 器 的 Intemet 名 称 。 其 中 , www 
表示 要 访问 的 文件 存放 在 名 为 www 服务 器 里 ， 多 数 公 司 都 有 指定 的 服务 器 作为 对 外 的 网 上 
站 点 ， 叫 做 www; sohu 则 表示 了 该 网 站 的 名 称 ，.com 则 指出 了 该 网 站 的 服务 类 型 。 

目前 ， 常 用 的 网 站 服务 类 型 的 含义 如 下 : com 特 指 事务 和 商务 组 织 ，.edu 表示 教育 机 
构 ; gov 表示 政府 机 关 ; mil 表示 军用 服务 ; .net 表示 网 关 ， 由 网 络 主机 或 Internet 服务 提 
供 商 决 定 .org 一 般 表 示 公 共 服 务 或 非 正 式 组 织 。 


注意 : 

另外 , 有 些 域 名 后 面 会 带 有 本 国 和 地 区 的 域名 。 例 如 , 新 浪 网 址 http://www.sina.com.cn 
中 的 cn 代表 该 网 站 属于 中 国 。 另 外 ，au 代表 澳大利亚 ，ca AX XS fr 代表 法 兰 西 ， 
uk 代表 英国 ，jip 代表 日 本 等 。 

第 三 部 分 /index.html 表示 要 访问 主机 的 哪 一 个 页 面 文件 ， 可 以 把 它 理解 为 该 文件 存放 
在 服务 器 上 的 具体 位 置 。 


4. 超 文 本 标记 语言 (HTML) 


HTML(HyperText Mark-up Language) 即 超 文本 标记 语言 ,是 WWW 上 通用 的 描述 语言 。 
HTML 语言 主要 是 为 了 把 存放 在 一 台 计 算 机 中 的 文本 或 图 形 与 男 一 台 计 算 机 中 的 文本 或 图 
形 方便 地 联系 在 一 起 ， 形 成 有 机 的 整体 。 
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5. HTML 标记 


HTML 标记 用 于 修饰 、 设 置 HTML 文件 的 内 容 及 格式 。 用 户 只 需 输 入 文件 内 容 和 必要 
的 标记 , 文件 内 容 在 浏览 器 窗口 内 就 会 按照 标记 定义 的 格式 显示 出 来 。 一 般 情况 下 , HTML 
标记 使 用 下 列 格式 : 
< 标记 > 文件 内 容 </ 标 记 > 


标记 需要 填写 在 一 对 尖 括 号 “< >” 内 ， 它 们 通常 是 英文 单词 的 首 字母 或 缩写 。 一 般 情 
况 下 标记 是 成 对 出 现 的。 结束 标记 是 在 标记 的 前 面 添加 斜 枉 “/”。 

在 书写 标记 时 ， 英 文字 母 的 大 小 写 或 混合 使 用 大 小 写 都 是 允许 的 ， 如 HTML. html 和 
Html 的 作用 和 效果 都 是 一 样 的 。 

标记 内 可 以 包含 一 些 属性 。 标 记 属 性 可 由 用 户 设置 ， 否 则 将 采用 默认 的 设置 值 。 属 性 
名 称 出 现在 标记 的 后 面 ， 并 且 以 空格 进行 分 隔 。 如 果 标 记 具 有 多 个 属性 ， 那 么 不 同 的 属性 
名 称 之 间 将 以 空格 隔 开 。 其 格式 如 下 : 


< 标记 名 字 属性 1 属性 2 属性 3 … > 


HTML 对 属性 名 称 的 排列 顺序 没有 特别 的 要 求 ， 用 户 可 根据 个 人 的 爱好 ， 在 标记 之 后 
排列 所 需 的 属性 名 称 。 另 外 ， 标 记 的 属性 值 须 使 用 双 引 号 或 单 引号 括 起 来 。 

注意 : 

HTML 文件 可 以 使 用 一 个 简单 的 文本 编辑 器 创建 , 例如 Windows 操作 系统 中 自 带 的 记 
事 本 程序 。 但 是 文件 编辑 完成 进行 保存 时 ， 必 须 以 htm 或 html 为 扩展 名 。 以后， 就 可 以 使 
用 Web 浏览 器 (如 IE 浏览 器 ) 来 直接 打开 HTML. 文件 进行 浏览 和 查看 了 。 


2.1.2. 网 页 的 基本 结构 


HTML 文件 通常 由 3 部 分 组 成 ， 即 起 始 标记 、 网 页 标题 和 文件 主体 。 其 中 ,文件 主体 是 
HTML 文件 的 主要 部 分 与 核心 内 容 ， 它 包括 文件 所 有 的 实际 内 容 与 绝 大 多 数 的 标记 符号 。 

在 HTML 文本 中 ， 有 一 些 固定 的 标记 要 放 在 每 一 个 HTML 文件 里 。HTML 文件 的 总 
体 结构 如 下 所 示 : 


<Html> 

<Head> 

网 页 的 标题 及 属性 
</Head> 

<Body> 

文件 主体 

</Body> 

</Html> 
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1. 添加 起 始 标记 


<Html> 标 记 用 于 HTML 文档 的 最 前 面 ,用 来 标识 HTML 文档 的 开始 。 而 </Html> 标 记 
恰恰 相反 ， 它 放 在 HTML 文档 的 最 后 面 ， 用 来 标识 HTML 文档 的 结束 ， 两 个 标记 必须 一 
起 使 用 。 通 过 对 这 一 对 特殊 标记 符号 的 读 取 ， 浏 览 器 才 可 以 判断 目前 正在 打开 的 是 网 页 文 
件 ， 而 不 是 其 他 类 型 的 文件 。 
<Html> 标 记 的 起 始 和 结束 标记 符号 都 是 可 选 的 , 但 用 户 应 该 养 成 在 文件 中 使 用 <Html> 
标记 的 习惯 ,每 次 编写 HTML 文件 之 前 都 应 该 首先 在 网 页 内 添加 <Html>…</Html> 标 记 对 ， 
然后 再 在 标记 对 之 间 加 入 网 页 的 内 容 。 

2. 设置 文件 头 


<Head></Head> 标 记 对 构成 HTML 文档 的 开头 部 分 ， 在 此 标记 对 之 间 可 以 使 用 
<Title></Title>、<Script></Script> 等 标记 对 。 这 些 标记 对 都 是 描述 HTML 文档 相关 信息 的 
标记 对 ，<Head></Head> 标 记 对 之 间 的 内 容 不 会 在 浏览 器 的 窗口 内 显示 出 来 ， 两 个 标记 必 
须 一 起 使 用 。 常 用 的 文件 头 标记 如 表 2-1 所 示 。 


表 2-1 _ 常用 的 文件 头 标记 


标 dd 说 — m" 
<Title> 和 </Title> 标 记 标 明 HTML 文件 的 标题 ， 是 对 文件 内 容 的 概 
括 。 一 个 好 的 标题 能 使 用 户 从 中 判断 出 该 文件 的 大 概 内 容 。 文 件 的 标题 
Title 标记 一 般 不 会 显示 在 文本 窗口 中 ， 而 以 窗口 的 名 称 显示 在 标题 栏 中 。 


<Title></Title> 标 记 对 只 能 放 在 <Head></Head> 标 记 对 之 间 。 例 如 : 

<Title> 我 的 网 页 </Title> 

<Isindex> 标 记 主要 用 来 定义 查询 的 表单 ， 表 明 人 允许 用 户 通过 提供 关 
键 字 的 方式 来 查找 索引 内 容 。 在 阅读 文件 时 ， 不 管用 户 采 用 什么 样 的 方 
式 ， 当 前 文件 所 描述 的 数据 均 可 采用 索引 查询 方式 进行 搜索 

<Base> 标 记 用 于 设 定 超 链接 的 基准 路 径 。 使 用 这 个 标记 ， 可 以 大 大 
简化 网 页 内 超 链接 的 编写 。 用 户 不 必 为 每 个 超 链 接 输入 完整 的 路 径 ， 而 
只 需 指定 它 相 对 于 <Base> 标 记 所 指定 的 基准 地 址 的 相对 路 径 即 可 。 该 标 
记 包 含 参 数 Href， 用 于 指明 基准 路 径 ， 其 用 法 如 下 : 

«Base href="URL"> 

<Link> 标 记 表 示 超 链接 , 在 HTML 文件 的 <Head> 标 记 中 可 以 出 现任 
意 数目 的 Link 标记 。 它 也 包含 参数 Href。<Link> 标 记 可 以 定义 含有 链接 
标记 的 文件 与 URL 中 定义 文件 之 间 的 关系 。 

<Link> 标 记 通 常用 来 显示 作者 身份 、 相 关 检 索 及 术语 、 旧 的 或 更 新 
的 版 本 、 文 件 等 级 、 相 关 资 源 等 。Rel 参数 用 来 定义 HTML 文件 及 URL 
之 间 的 关系 , Rev 参数 用 来 定义 URL 和 HTML 文件 之 间 的 关系 。 该 标记 
用 法 如 下 : 

<link rev="RELATIONSHIP" rel-"RELATIONSHIP" href="URL"> 


Isindex 标记 


Base 标记 


Link 标记 
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( 续 表 ) 


<Meta> 标 记 用 来 指明 与 文件 内 容 相关 的 信息 。 每 一 个 该 标记 指明 一 
个 名 称 或 数值 对 。 如 果 多 个 <Meta> 标 记 使 用 了 相同 的 名 称 ， 其 内 容 便 会 
合并 成 一 个 用 逗号 隔 开 的 列表 ， 也 就 是 和 该 名 称 相关 的 值 。<Meta> 标 记 
的 主要 属性 包括 如 下 内 容 。 

e Http-Equlv: 把 标记 放 到 HTTP 头 域 之 中 。HTTP 服务 器 可 使 用 该 信 
息 处 理 文件 ,特别 是 它 可 在 对 这 个 文件 请 求 的 响应 中 包含 一 个 头 域 。 标 题名 
取 自 Http-Equiv 属性 值 ， 而 标题 值 则 取 自 Content 属性 值 。 

e Name: 指明 名 称 或 数值 对 的 名 称 。 如 果 没 有 ， 则 由 Http-Equiv 
给 出 名 称 。 

e Content: 指明 名 称 或 数值 对 的 值 ， 一 般 为 text/html。 

* Charset: 指明 网 页 所 使 用 的 基本 字符 集 ， 一 般 为 GB2312， 即 标 
准 简体 中 文 。 

Meta 标记 的 一 般 用 法 如 下 : 

«Meta http-equiv-"Content-Type" 


Meta 标记 


content-"text/html;charset-gb2312"7 
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本 节 将 通过 简单 的 操作 实例 ， 详 细 介绍 在 Windows 系统 附带 的 记事 本 中 ， 通 过 输入 
HTML 代码 创建 网 页 的 方法 。 


2.2.1 编辑 网 页 正文 


正文 是 网 页 的 核心 内 容 , HPEH HTML 语言 在 网 页 内 对 正文 进行 划分 段落 、 插 入 
标题 、 修 改 字体 、 设 置 字号 等 操作 。 另 外 ，HTML 还 允许 对 正文 应 用 不 同 的 字形 和 效果 。 
1. 输入 网 页 正文 标题 
一 般 文章 都 有 标题 、 副 标题 、 章 和 节 等 结构 ，HTML 也 提供 了 相应 的 标题 标记 <Hn>， 
其 中 a 为 标题 的 等 级 。HTML 提供 6 个 等 级 的 标题 ，n 越 小 ， 标 题字 号 就 越 大 。 


【练习 2-1】 使 用 标题 标记 改变 文本 格式 ， 创 建 如 图 2-1 所 示 的 网 页 。 
(1) 创建 一 个 名 为 testhtml 的 网 页 ， 代 码 如 下 所 示 (如 图 2-2 所 示 ): 
<H1> 标 题 1</H1> 
<H2> 标 题 2</H2> 
<P> 这 是 一 行 没有 设置 标题 格式 的 正文 文本 </P> 
<H5> 标 题 5</H5> 
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<H6> 标 题 6</H6> 


zy 
XD SRD AO SEC uh 
argen» 


ENT a-a 


标题 1 


ur» Roc» 


> 这 是 一 行 入 有 设置 标题 格式 的 正文 文本 </Py 
eus» rise aS» 

标题 2 

这 是 一 行 届 有 设 葵 标题 阁 式 的 正文 文本 
标题 5 


cnosti ocana» 


B 


图 2-1 test.html 的 运行 效果 图 2-2 test.html 的 代码 


-— 


注意 : 

用 户 除 了 使 用 本 例 所 介绍 的 方法 测试 网 页 效果 以 外 , 还 可 以 参考 本 书 第 1.3.1 节 【 练 习 
1-5】 所 介绍 的 操作 ， 将 本 例 中 的 代码 以 扩展 名 ASP(testasp) 保 存 至 C:\Inetpubvwwwroot 文 
件 夹 中 ， 然 后 通过 在 浏览 器 中 输入 http://localhost/test/test.asp 来 测试 网 页 效果 。 


2. 为 页 面 文字 划分 段落 


<P></P> 标 记 对 用 来 创建 一 个 段落 ， 在 此 标记 对 之 间 加 入 的 文本 将 按照 段落 的 格式 显 
示 在 浏览 器 上 。HTML 将 多 个 空格 以 及 回 车 等 效 为 一 个 空格 ，HTML 的 分 段 完全 依赖 于 分 
段 标记 <P>。 

另外 ，<P> 标 记 还 可 以 使 用 Align 属性 ， 用 来 说 明 对 齐 方式 ， 语 法 是 <P Align=" 对 齐 方 
式 "></P>。Align 的 值 可 以 是 Left( 左 对 齐 )、Center( 居 中 ) 和 Right( 右 对 齐 )3 个 值 中 的 任何 一 
个 。 如 <P Align="Center"></P> 表 示 标 记 对 中 的 文本 使 用 居中 对 齐 方式 。 


【练习 2-2】 使 用 段落 标记 ， 并 设置 不 同 的 属性 ， 创 建 如 图 2-3 所 示 的 网 页 。 
(1) 创建 一 个 名 为 test2.html 的 网 页 ， 其 代码 如 下 所 示 ( 如 图 2-4 所 示 ): 
<P Align="Left"> 文 字 左 对 齐 。</P> 
<P Align="Center"> 文 字 居 中 对 齐 。</P> 
<P Align="Right"> 文 字 右 对 齐 。</P> 
<P > 上 面 的 三 段 文字 被 P 标记 设置 了 段落 格式 。</P> 


(2) 运行 test2.html， 网 页 效果 如 图 2-3 所 示 。 


cP aigne Rigt o t pH. cR» 
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图 2-3 tes2.html 的 运行 效果 图 2-4 test2.html 的 代码 
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注意 : 

<Br> 标 记 用 来 创建 一 个 回 车 换行 。 如 果 <Br> 标 记 处 在 <P></P> 标 记 对 的 外 面 ， 将 创建 
一 个 大 的 回 车 换行 ， 即 <Br> 标 记 前 面 和 后 面 的 文本 的 行 与 行 之 间 的 距离 比较 大 。 若 处 在 
<P></P> 标 记 对 的 中 间 ， 则 <Br> 标 记 前 面 和 后 面 文本 的 行 与 行 之 间 的 距离 将 比较 小 。 


3. 设置 页 面 文字 的 字体 和 字号 


<Font></Font> 标 记 对 用 来 设置 文字 字体 ， 它 的 Face 属性 指定 浏览 器 所 显示 文本 的 字 
体 类 别 ， 而 Size 和 Color 属性 则 可 以 对 输出 文本 的 字体 大 小 、 颜 色 进 行 随意 地 改变 。 
用 户 在 使 用 Font 标记 的 Face 属性 设置 文本 字体 时 ， 可 指定 一 个 字体 列表 ， 如 果 浏 览 
器 不 支持 第 一 种 字体 ， 就 会 依次 使 用 第 二 种 、 第 三 种 等 后 续 字 体 显示 网 页 内 容 。 如 下 例 ; 
«Font Face=" 宋 体 , 仿 宋体 ,来 书 "> 我 要 显示 的 汉字 </Font> 


Size 属性 用 来 改变 字体 的 大 小 ; Color 属性 则 用 来 改变 文本 的 颜色 ， 颜 色 的 取 值 是 十 
六 进 制 RGB 颜色 码 或 HTML 语言 给 定 的 颜色 常量 名 。 
4. 设置 页 面 文字 的 强调 及 加 重 等 效果 


下 面 的 标记 对 用 于 设置 文本 的 强调 、 加 重 等 效果 ， 其 用 法 和 前 面 的 标记 一 样 ， 差 别 在 
于 输出 的 文本 字体 不 太一 样 。 

e <Tt></Tt> 标 记 对 : 用 来 输出 打字 机 风格 字体 的 文本 。 

e <Cite></Cite> 标 记 对 : 用 来 输出 引用 方式 的 字体 ， 通 常 是 斜体 。 

e <Em></Em> 标 记 对 : 用 来 输出 需要 强调 的 文本 (通常 是 斜体 加 粗 体 )。 

e <Strong></Strong> 标 记 对 : 用 来 输出 加 强 显示 效果 的 文本 (通常 也 是 斜体 加 粗 体 )。 


[455] 2-31 参考 上 面 所 介绍 的 内 容 ， 为 网 页 中 的 文字 设置 不 同 的 字体 ， 创 建 如 图 2-5 
所 示 的 网 页 。 
(1) 创建 一 个 名 称 test3.html 的 网 页 ， 其 代码 如 下 所 示 ( 如 图 2-6 所 示 ): 


<Body text="blue"> 
<H1> 最 大 的 标题 </H1> 

<H3> 使 用 h3 的 标题 </H3> 
<H6> 最 大 的 标题 </H6> 
<P><B> 黑 体 字 文本 </B> </P> 
<P><I> 斜 体 字 文 本 </ </P> 
<P><U> 下 加 一 划 线 文本 </U> </P> 
<P><Te 打 字 机 风格 的 文本 </TP></P> 
<P><Cite> 引 用 方式 的 文本 </Cite></P> 
<P><Em> 强 调 的 文本 </Em></P> 
<P><Strong> 加 重 的 文本 </Strong></P> 
<P><font Size="+1" Color-"red"»Size 取 值 “+1”、Color 取 值 “red” 时 的 文本 </font></P> 


(2) 运行 test3.html 网 页 ， 效 果 如 图 2-5 所 示 。 
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图 2-5 test3.html 的 效果 图 2-6 test3.html 的 代码 


5. 设置 页 面 文字 的 黑体 、 斜 体 和 下 划 线 效果 


除了 正常 的 字体 外 ， 用 户 还 可 为 文本 设置 黑体 、 斜 体 和 下 划 线 等 字 型 。HTML 对 这 些 
标记 出 现 的 次 序 没 有 特别 的 要 求 。 

e <B></B> 标 记 对 : 用 来 使 文本 以 黑体 字 的 形式 输出 。 

e <LI></> 标 记 对 : 用 来 使 文本 以 斜体 字 的 形式 输出 。 

e <U></U> 标 记 对 : 用 来 使 文本 以 加 下 划 线 的 形式 输出 。 


2.2.2 插入 网 页 图 像 


制作 网 页 时 ， 常 需要 在 页 面 上 添加 一 些 图 片 ， 因 为 有 时 “一 图 胜 千言 ”。HTML 语言 
提供 了 <Img> 标 记 来 处 理 图 像 的 输出 。 本 节 将 介绍 在 网 页 内 插入 图 像 文件 ， 设 置 图 像 链接 
的 方法 ， 以 及 通过 运用 HTML 标记 改变 图 像 的 显示 尺寸 与 对 齐 方式 等 。 

1. 在 网 页 中 插入 图 像 

HTML 采用 的 图 像 格式 有 GIF. JPG fll PNG 3 种 ,在 网 页 中 插入 图 像 时 , 须 使 用 HTML 
的 <Img> 标 记 ， 它 的 使 用 格式 如 下 : 

«Img Src="Picname"> 
Sre 是 Source( 源 ) 英 文 的 缩写 ，Picname 是 希望 在 网 页 内 显示 的 图 像 的 URL。 在 网 页 内 


创建 图 像 链接 与 文本 链接 的 区 别 并 不 大 ， 也 需要 使 用 <A> 标 记 ， 并 指明 链接 目标 的 URL, 
唯一 的 区 别 就 是 在 </A > 标记 符号 之 前 要 使 用 <Img> 标 记 ， 图 像 链接 的 标记 格式 如 下 : 


<A Href-"URL"7-Img Src="Picname"></A> 


HH, URL 是 链接 目标 的 URL, Picname 是 图 像 文件 的 URL。 在 网 页 内 插入 图 像 链接 
时 ， 浏 览 器 窗口 的 图 像 周 围 将 出 现 黑色 边框 ， 如 果 用 户 不 希望 出 现 该 边框 ， 可 在 <Img> 标 
记 符号 内 添加 <Border=0>。 
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2. 设置 网 页 图 像 的 格式 与 布局 


在 默认 的 情况 下 ， 将 图 
并 且 文 本 出 现在 图 像 的 右 侧 
2-2 所 示 。 


R 性 


像 插 入 到 网 页 文件 之 后 ， 它 与 网 页 中 的 文本 是 垂直 居 下 对 齐 的 ， 
。 要 对 图 像 进一步 设置 ， 需 要 了 解 更 多 的 属性 设置 方法 ， 如 表 


表 2-2 图 像 的 属性 及 其 用 途 
用 B 


Img Src-" " 


图 片 来 源 


Img Width=" " Height-" " 


Img hspace-" "vspace-" " 
Border-" " 


Align-"top" 


alt=" " 


lowsrc-" " 


图 片 大 小 ， 此 宽度 及 高 度 一 般 采 用 像素 作 单位 。 通 常设 为 图 片 的 真实 
大 小 ， 以 免 失 真 ， 若 需要 改 图 片 大 小 最 好 使 用 专用 的 图 像 编 辑 工具 
设 定 图 片 边沿 空白 ， 以 免 文 字 或 其 他 图 片 贴近 。hspace 用 于 设 定 图 片 
左右 的 空间 ，vspace 用 于 设 定 图 片上 下 的 空间 ， 高 度 采 用 像素 作 单位 
图 片 边框 厚度 

调整 图 片 旁 边 文字 的 位 置 , 可 选 值 有 top、middle、bottom left, Right, 
默认 值 为 bottom 

用 以 描述 该 图 形 的 文字 ， 若 使 用 的 浏览 器 不 能 显示 该 图 片 时 ， 这 些 文 
字 将 会 代 普 图 片 被 显示 。 若 浏览 器 显示 了 该 图 片 ， 当 鼠标 移 至 图 片上 
该 文字 也 会 显示 

设 定 先 显示 低 解 析 度 的 图 片 。 若 在 网 页 中 加 入 的 是 一 张 很 大 的 图 片 ， 用 
户 浏览 时 可 能 需要 很 长 的 下 载 时 间 。 而 设置 一 张 低 解 析 度 的 图 片 后 ， 它 
会 先 被 显示 以 免 浏 览 者 失去 兴趣 ,通常 采用 原 图 的 黑白 版 本 作为 低 解析 
度 图 片 


【练习 2-4】 参 考 上 面 所 介绍 的 内 容 ， 创 建 如 图 2-7 所 示 包 含 各 种 图 片 格式 的 网 页 。 
(1) 创建 一 个 文件 夹 ， 然 后 将 图 2-8 所 示 的 5 个 图 片 文件 (1.jpg、2.jpg、3.jpg、4.jpg 和 


5.jpg) 复 制 至 该 文件 夹 中 。 


图 2-7 test4.html 的 效果 
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人 


ljpg 2jpg 3jpg 4jpg 5jpg 
图 2-8 复制 图 片 
(2) 创建 一 个 名 为 test4.html 的 网 页 ， 其 代码 如 下 所 示 ( 如 图 2-9 所 示 ): 


<p><Img Src-"1.jpg" > 将 Ljpg 插入 网 页 。</p> 
<p><Img Src="2.jpg" Alt=" 这 是 一 张 光盘 的 图 片 " hspace=10 vspace=20> 设置 2.jpg 上 下 左右 空 
白 并 具备 描述 说 明 的 图 片 。</p> 
<p><Img Src="3.jpg” Border-4 Align="Middle"> 将 3.jpg 设 定 图 片 中 间 对 齐 ， 边 框 厚度 为 4。 
</p> 
<p><Img Src="4.jpg" Align="Right" > 将 4.jpg 设 定 靠 右 对 齐 。</p> 
<p><Img Src-"5.jpg" Width-200 Height-150 > 将 5.jpg 放大 。</p> 


图 2-9 test4.html 的 代码 


(3) 运行 test4.html 网 页 ， 效 果 如 图 2-7 所 示 。 
注意 : 
【练习 2-4】 的 代码 中 所 提 到 的 图 片 文件 ， 必 须 预先 存放 在 该 HTML 文档 所 在 的 文件 
夹 中 ， 才 能 在 浏览 器 中 正常 显示 。 
3. 在 页 面 中 加 入 水 平 线 
使 用 <Hr> 标 记 可 以 在 网 页 中 插入 一 条 水 平 线 ， 它 的 使 用 方式 如 下 : 
«Hr Align= 对 齐 方式 Width=x%.Size=n.Noshade> 
<Hr> 标 记 具 有 Size. Color. Width. Align 和 Noshade 属性 ， 各 属性 的 含义 如 下 。 


e Size 属性 : 用 于 设置 水 平 线 的 厚度 ， 默 认 单位 是 像素 。 
e Width 属性 : 用 于 设置 水 平 线 宽度 ， 默 认 单位 是 像素 ， 也 可 使 用 占 浏览 器 窗口 的 百 
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分 比 来 设 定 。 

* Color 属性 : 用 于 设置 颜色 。 

* Align 属性 : 用 于 设置 水 平 线 的 对 齐 方式 。 

e Noshade 属性 : 不 用 赋值 ， 直 接 加 入 即 可 使 用 ， 它 用 来 加 入 一 条 没有 阴影 的 水 平 线 
(不 加 入 此 属性 水 平 线 将 有 阴影 )。 


【练习 2-5】 参 考 上 面 所 介绍 的 内 容 ， 创 建 如 图 2-10 所 示 的 包含 各 种 水 平 线 的 网 页 。 
(1) 创建 一 个 名 为 test5.html 的 网 页 ， 其 代码 如 下 所 示 (如 图 2-11 所 示 ): 


直接 插入 的 水 平 线 <Hr> 

宽度 为 屏幕 一 半 ， 居 中 对 齐 的 水 平 线 <Hr Align-Middle Width=50%> 
宽度 为 300 像素 ， 靠 右 对 齐 的 水 平 线 <Hr Align=Right Width=300> 
厚度 为 5 像素 的 蓝 色 水 平 线 <Hr Width=50% Size-5 Color="#0000FF"> 
厚度 为 10 像素 的 无 阴影 水 平实 线 <Hr Width-5096 Size-10 Noshade> 


图 2-10 test5.html 的 效果 图 2-11 testS.html 的 代码 


223 ”建立 超 链接 


超 链接 一 般 可 分 为 外 部 链接 (External Link) 与 内 部 链接 (Internal Link)。 单 击 外 部 链接 
时 ， 浏 览 器 窗口 将 显示 其 他 文档 的 内 容 ; 单 击 内 部 链接 时 ， 访 问 者 将 看 到 网 页 的 其 他 部 分 
并 显示 在 当前 浏览 器 窗口 中 。 另 外 ，HTML 还 可 以 创建 指向 邮件 地 址 的 链接 ， 单 击 该 链接 
后 便 可 通过 电子 邮件 软件 给 指定 的 地 址 发 送 邮件 。 

1. 创建 外 部 链接 


一 个 超 链接 通常 由 以 下 3 部 分 构成 : 首先 是 超 链接 标记 <A></A>, 表示 这 是 一 个 链接 ; 
然后 是 属性 Href 及 其 值 ， 这 就 定义 了 超 链 接 所 指 的 目标 ; 最 后 是 在 超 链接 中 显示 在 网 页 上 
作为 链接 的 文字 。 链 接 文本 的 格式 如 下 : 

<A Href="URL"> 

单 击 外 部 链接 时 ， 可 在 访问 者 的 浏览 器 窗口 中 打开 并 跟踪 其 他 文档 。 文 档 可 能 保存 在 

其 他 站 点 内 ， 也 可 能 保存 在 当前 站 点 内 。 为 了 便于 区 分 这 两 种 情况 ， 可 将 指向 其 他 站 点 文 
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档 的 链接 称 为 URL 链接 ， 而 将 指向 同一 站 点 内 文档 的 链接 称 为 本 地 链接 。 
创建 URL 链接 时 ， 需 要 给 出 URL 链接 的 完整 网 址 ， 例 如 下 面 的 代码 就 是 在 网 页 中 添 
加 “新 浪 网 ”的 超级 链接 : 


<A Href="http://www.sina.com.cn"> 新 浪 网 </A> 


一 台 计 算 机 上 对 不 同文 件 进行 链接 叫 本 地 链接 ， 常 用 相对 路 径 或 绝对 路 径 表 示 一 个 
文件 。 假 如 链接 的 目标 位 于 当前 HTML 文档 所 在 文件 夹 的 子 文 件 中 , 则 可 直接 使 用 相对 路 
径 地 址 来 指向 该 目标 。 例 如 : 


<A Href="bbs\login.html"> 登 录 BBS</A> 
若 使 用 绝对 路 径 地 址 来 指向 目标 ， 则 可 表示 为 : 


«A Href="/c:\myweb\bbs\login.html"> 登 录 BBS</A> 


注意 : 
“/” 表 示 当 前 路 径 地 址 为 绝对 路 径 。 假 如 链接 的 目标 位 于 当前 HTML 文档 所 在 文件 
夹 的 上 层 文件 夹 中 ， 则 路 径 使 用 “../” 来 指向 上 层 文件 夹 。 


此 外 ，<A Href=""></A> 还 具有 Target 属性 ， 此 属性 用 来 指明 浏览 时 的 目标 框架 ， 该 
属性 各 项 值 的 用 法 与 含义 如 表 2-3 所 示 。 


表 2-3 Target 属性 的 取 值 与 用 途 
用 途 
这 只 运用 于 框架 网 页 中 , 车 设 定 则 目标 网 页 将 显示 在 “框架 
名 称 ” 的 框架 中 ， 框 架 名 称 是 事先 由 框架 标记 命名 
将 链接 目标 的 内 容 在 新 的 浏览 器 窗口 中 打开 
将 链接 目标 的 内 容 作 为 上 一 个 页 面 
将 链接 目标 的 内 容 显示 在 当前 窗口 中 (默认 值 ) 
将 框架 中 链接 目标 的 内 容 显示 在 没有 框架 的 窗口 中 ( 即 除去 
了 框架 ) 


属 性 
Target=" 框 架 名 称 " 


Target-" blank" 或 Target-"new" 
Target-" parent" 


Target-" self" 


Target-" top" 


如 果 不 使 用 Target 属性 ， 当 浏览 者 单 击 了 链接 之 后 将 在 原来 的 浏览 器 窗口 中 浏览 新 的 
HTML 文档 。 若 Target 的 值 等 于 _blank， 单 击 链接 后 将 会 打开 一 个 新 的 浏览 器 窗口 来 浏览 
新 的 HTML 文档 ， 如 下 面 代码 所 示 : 


<A Href="http://www.163.com" Target="_blank"> 网 易 网 站 </A> 
2. 创建 内 部 链接 


所 谓 内 部 链接 就 是 网 页 中 的 书签 。 在 内 容 较 多 的 网 页 内 建立 内 部 链接 时 ， 它 的 链接 目 
标 不 是 其 他 文档 ， 而 是 网 页 内 的 其 他 位 置 。 在 使 用 内 部 链接 之 前 ， 需 要 在 网 页 内 确定 书签 
的 位 置 ， 并 使 用 <A> 标 记 的 Name 属性 为 书签 命名 。 内 部 链接 的 一 般 格式 为 : 
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«A Name=" 书 签名 称 "> 书签 内 容 </A> 


其 中 ，“ 书 签名 称 ” 是 代表 “书签 内 容 ” 的 字符 串 ， 用 户 可 使 用 简短 、 有 意义 的 字符 
串 代 蔡 网 页 文本 。 为 了 使 Web 浏览 器 易于 区 分 “书签 名 称 ”与 文档 内 容 ，“ 书 签名 称 ” 前 
需要 添加 符号 #。 例如 ， 先 定义 一 个 标签 A， 然后 找到 “标签 名 ”标签 , 就 可 编写 如 下 代码 : 


<A name=" 标 签 A"> 书 签 内 容 </A> 
«A Hre 人 f="# 标 签 A"> 单 击 此 处 将 使 浏览 器 跳 到 “标签 A ”处 </A> 


3. 创建 邮件 链接 
邮件 链接 可 使 访问 者 在 浏览 页 面 时 ， 只 需 单 击 电子 邮件 链接 就 能 够 打开 默认 的 邮件 编 
辑 软件 ， 向 指定 的 地 址 发 送 邮件 。 电 子 邮 件 链 接 的 应 用 格式 如 下 : 
<A Href-"mailto:E-mail 地 址 "> 邮件 链接 文本 </A> 
其 中 ，“E-mail 地 址 ”是 用 户 在 Intemet 上 的 电子 邮件 地 址 ， 而 “邮件 链接 文本 ”就 
是 访问 者 单 击 的 文本 。 
访问 者 单 击 电子 邮件 链接 时 ， 将 打开 默认 的 电子 邮件 编辑 软件 。 例 如 ， 使 用 Office 系 


列 的 Outlook Express 作为 默认 的 邮件 编辑 器 时 ， 单 击 电子 邮件 链接 时 将 打开 Outlook 
Express 窗口 ，“ 收 件 人 ”一 栏 将 出 现 该 邮件 地 址 。 
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本 节 将 通过 几 个 简单 的 实例 , 详细 介绍 通过 修改 HTML 网 页 代码 , 在 网 页 中 设置 表格 、 
框架 、 列 表 、 表 单 、CSS 样式 和 动态 HTML 的 方法 。 


2.3.1 在 页 面 中 使 用 表格 


表格 对 于 制作 网 页 是 很 重要 的 ， 现 在 很 多 网 页 都 是 使 用 多 重 表格 。 主 要 是 因为 表格 不 
但 可 以 固定 文本 或 图 像 的 输出 ， 而 且 还 可 以 任意 地 设置 背景 和 前 景 颜 色 。 

1. 认识 表格 标记 

表格 由 <Table> 标 记 开 始 , </Table> 标 记 结束 , 表格 的 内 容 由 <Tr> 标 记 和 <Td> 标 记 定 义 。 
<Tr> 标 记 说 明 表 格 的 一 个 行 , 表格 有 多 少 行 就 有 多 少 个 <Tr> 标 记 ; <Td> 标 记 则 设 定 一 个 单 
元 格 来 填充 表格 。 

【练习 2-6】 创 建 包含 如 图 2-12 所 示 简 单 表格 的 网 页 。 

(1) 创建 一 个 名 为 test6.html 的 网 页 ， 其 代码 如 下 所 示 ( 如 图 2-12 所 示 ): 


«Table Border=1> 


。28。 


«Tr 
<Td> 编 号 </Td> 
<Td> 姓 名 </Td> 
<Td> 工 资 </Td> 

«Tr 

«Tr 
<Td>3201127</Td> 
<Td> 杜 思 明 </Td> 
<Td>7000</Td> 

«Tr 

</Table> 
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图 2-12 test6.html 的 效果 


2. 设置 表格 的 整体 属性 
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运行 test6.html 网 页 ， 效 果 如 图 2-12 所 示 。 
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图 2-13  testó.html 的 代码 


<Table></Table> 标 记 对 用 来 创建 一 个 表格 ， 它 们 具有 如 表 2-4 所 示 的 多 种 属性 。 


表 2-4_ 表 格 的 属性 
属 性 用 途 
«Table Bgcolor=""> 设置 表格 的 背景 色 


«Table Border=""> 


设置 边框 的 宽度 ， 若 不 设置 此 属性 ， 则 边框 宽度 默认 为 0 


«Table BorderColor=""> 


设置 边框 的 颜色 


«Table BorderColorlight=""> 


设置 边框 明亮 部 分 的 颜色 ( 当 Border 的 值 大 于 等 于 1 时 才 有 用 ) 


«Table BorderColordark-"" 
«Table Cellspacine=""> 
«Table Cellpadding-""— 


设置 边框 阴影 部 分 的 颜色 ( 当 Border 的 值 大 于 等 于 1 时 才 有 用 ) 


设置 表格 单元 格 与 单元 格 之 间 的 空间 大 小 
设置 表格 单元 格 边框 与 其 内 部 内 容 之 间 的 空间 大 小 


<Table Width=""> 


注意 : 


<Table></Table> 标 记 对 的 各 个 属性 可 以 结合 使 用 。 有 关 宽 度 、 大 小 的 单位 用 绝对 像素 


设置 整个 表格 的 宽度 ， 单 位 用 绝对 像素 值 或 总 宽度 的 百分比 
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值 ， 而 有 关 颜 色 的 属性 使 用 十 六 进 制 RGB 颜色 码 或 HTML 语言 给 定 的 颜色 常量 名 。 
3. 设置 表格 单行 的 属性 


<Tr></Tr> 标 记 对 用 来 创建 表格 中 的 一 行 ， 表 格 有 多 少 行 就 有 多 少 对 <Tr> 标 记 。<Tr> 
标记 具有 如 表 2-5 所 示 的 属性 。 


表 2-5 表格 行 的 属性 
用 iĝ 

设置 表格 行 的 对 齐 方式 (水 平 )， 可 选 值 为 left、center、right 
设置 表格 行 的 对 齐 方式 (垂直 )， 可 选 值 为 top、middle、bottom 
设置 表格 行 的 底 色 
设置 表格 行 的 边框 颜色 
设置 表格 行 的 边框 明亮 部 分 的 颜色 
设置 表格 行 的 边框 阴影 部 分 的 颜色 


属 性 
<Tr Align=""> 


«Tr vAlign=""> 


«Tr Bgcolor=""> 

<Tr BorderColor=""> 
<Tr BorderColorlight=""> 
<Tr BorderColordark=""> 


【练习 2-7】 通 过 对 表格 行 的 属性 设置 ， 创 建 如 图 2-14 所 示 的 表格 网 页 。 
(1) 创建 一 个 名 为 test7.html 的 网 页 ， 其 代码 如 下 所 示 ( 如 图 2-15 所 示 ): 


«Table Width="85%" Border-"1" Cellspacing-"5" BorderColor="black"> 
«Tr BorderColor-"£0000FF" Align-"Right" 
<Td> 第 一 行 边 界线 为 蓝 色 </Td><Td> 第 一 行 靠 右 对 齐 </Td> 
</Tr> 
«Tr BorderColorlight="#CF0000" BorderColordark="#00FF00" vAlign="bottom"> 
<Td> 第 二 行 向 光 边框 为 绿色 背光 边框 为 红色 </Td><Td> 第 二 行 靠 底 对 齐 </Td> 
«Tr 
</Table> 


(2) 运行 test7.html 网 页 ， 效 果 如 图 2-14 所 示 。 
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图 2-14 test7.html 的 效果 图 2-15 test7.html 的 代码 
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4. 设置 普通 单元 格 属性 


<Td></Td> 标 记 对 用 来 设置 表格 中 的 一 个 单元 格 的 内 容 及 格式 。 单 元 格 中 可 以 包含 文 
本 、 图 像 、 列 表 、 段 落 、 表 单 、 水 平 线 、 表 格 等 。<Td> 标 记 具 有 如 表 2-6 所 示 的 属性 。 


表 2-6 单元 格 的 属性 


属 性 用 途 
<Td Width=""> 设置 单元 格 的 宽度 ， 接 受 绝 对 值 (如 80) 及 相对 值 (如 80%) 
<Td 设置 单元 格 的 高 度 
«Td Colspan-"" 设置 单元 格 向 右 合 并 的 单元 格 数 
«Td Rowspan=""> 设置 单元 格 向 下 合并 的 单元 格 数 
«Td Align=""> 设置 单元 格 的 对 齐 方式 (水 平 )， 可 选 值 为 left、center、right 
«Td vAlign-"" 设置 单元 格 的 对 齐 方式 (垂直 )， 可 选 值 为 top、middle、bottom 
«Td Bgcolor=""> 设置 单元 格 的 底 色 
«Td BorderColor=""> 设置 单元 格 的 边框 颜色 


«Td BorderColorlight=""> 设置 单元 格 的 边框 明亮 部 分 的 颜色 
«Td BorderColordark=""> 设置 单元 格 的 边框 阴影 部 分 的 颜色 
«Td Background=""> 设置 单元 格 的 背景 图 片 ， 与 Bgcolor 任 选 其 一 


5. 设置 标题 单元 格 属性 


<Th> 标 记 与 <Td> 标 记 同 样 是 标记 一 个 单元 格 ， 唯 一 不 同 的 是 <Th> 标 记 所 标记 的 单 
元 格 中 的 文字 以 粗 体 出 现 ， 通 常用 于 表格 中 的 标题 栏 。 用 它 取代 <Td> 标 记 的 位 置 就 可 
以 了 ， 其 属性 设 定 请 参考 <Td> 标 记 。 为 <Td> 标 记 所 标记 的 文字 加 上 粗 体 标记 也 能 达到 
同样 的 效果 。 

6. 设置 表格 的 总 标题 


<Caption> 标 记 的 作用 是 为 表格 加 上 一 个 标题 ， 如 同 在 表格 上 方 加 上 没有 格 线 的 通栏 
行 ， 通 常用 来 存放 表格 标题 。 

可 使 用 <Caption Align-" " > 属性 来 设置 表格 标题 行 相对 于 表格 的 对 齐 方式 (水 平 ), 可 选 
值 为 left、center、right、top、middle 与 bottom。 若 Align="bottom"， 标 题 列 便 会 出 现在 表 
格 的 下 方 ， 而 与 <Caption> 标 记 语 句 在 <Table> 标 记 中 的 位 置 无 关 。 


【练习 2-8】 通 过 对 单元 格 的 属性 设置 ， 创 建 如 图 2-16 所 示 的 表格 网 页 。 
(1) 创建 一 个 名 为 test8.html 的 网 页 ， 其 代码 如 下 所 示 ( 如 图 2-17 所 示 ): 


«Table Width="350" Border-"1" Cellspacing="0" Cellpadding-"2" Align-"center" 
Bgcolor="#FFC4E1" BorderColor-"£0000FF"— 
<Caption> 格 式 单 词 与 其 含义 </Caption> 
<Tr Align="center"> 
<Td colspan="3"> 横 向 通栏 示例 </Td> 
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«Tr 
«Tr Align="center"> 
«Td rowspan="3"> 纵 向 通栏 示例 </Td> 
<Th> 格 式 单词 </Th><Th> 含 义 </Th> 
</Tr> 
<Tr Align="center"> 
<Td>Width</Td><Td> 宽 度 </Td> 
</Tr> 
«Tr Align="center"> 
<Td>Height</Td><Td> 高 度 </Td> 
</Tr> 
</Table> 


(2) 运行 test8.html 网 页 ， 效 果 如 图 2-16 所 示 。 
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图 2-16  test8.html 的 效果 图 2-17 testg.html 的 代码 


2.3.2 在 页 面 中 使 用 框架 


框架 网 页 把 浏览 器 窗口 切割 成 几 个 独立 的 部 分 ， 打 开 的 链接 目标 文件 只 占用 浏览 器 窗 
口 的 某 个 区 域 ， 该 区 域 就 是 框架 网 页 的 目标 框架 。 框 架 网 页 的 出 现 ， 使 得 访问 者 在 浏览 
窗口 中 可 同时 观察 多 个 网 页 。 

1. 认识 框架 标记 

设计 框架 网 页 时 ,<Frame> 标 记 和 <Frameset> 标 记 用 于 定义 框架 网 页 的 结构 。 由 于 框架 
网 页 的 出 现 ， 从 根本 上 改变 了 HTML 文档 的 传统 结构 ， 因 此 在 出 现 <Frameset> 标 记 的 文档 
中 ， 将 不 再 使 用 <Body> 标 记 ， 包 含 框架 网 页 的 HTML 文档 的 基本 结构 为 : 


<Html> 
<Head>…</Head> 
<Frameset>*…</Frameset> 
«Frame Src="URL"> 
</Html> 
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其 中 ，URL 用 于 确定 在 框架 网 页 内 显示 的 网 页 文件 的 地 址 。 


注意 : 
如 果 考 虑 到 一 些 不 支持 框架 网 页 功能 的 浏览 器 ， 可 使 用 <Noframes></Noframes> 标 记 
对 ， 把 此 标记 对 放 在 <Frameset></Frameset> 标 记 对 之 间 。 


在 网 页 内 添加 框架 网 页 ， 就 意味 着 对 浏览 器 窗口 进行 纵向 与 横向 的 划分 。Rows 用 来 
规定 主 文档 中 各 个 横向 划分 的 框架 的 行 定位 , 而 Cols 用 来 规定 主 文档 中 各 个 纵向 划分 的 框 
架 的 列 定 位 。 这 两 个 属性 的 取 值 可 以 是 百分数 、 绝 对 像素 值 或 星 号 “* ”， 其 中 星 号 代表 那 
些 未 被 划分 的 空间 , 如 果 同 一 个 属性 中 出 现 多 个 星 号 则 将 剩 下 的 未 被 说 明 的 空间 平均 分 配 。 
同时 ， 所 有 的 框架 将 按照 Rows 和 Cols 的 值 从 左 到 右 ， 然 后 从 上 到 下 排列 。 设 置 框架 网 页 
大 小 尺寸 的 例子 如 下 所 示 : 

<Frameset RoWS="*,*,*"> 

该 例 共 设置 3 个 按 列 排列 的 框架 ， 每 个 框架 占 整个 浏览 器 窗口 的 1/3。 

<Frameset Cols="40%,*,*"> 

该 例 共 设置 3 个 按 行 排列 的 框架 ， 第 一 个 框架 占 整 个 浏览 器 窗口 的 40%， 剩 下 的 空间 
平均 分 配给 另外 两 个 框架 。 

<Frameset Rows="40%,*" Cols="50%,*,200"> 

该 例 共 设 置 6 个 框架 ， 先 是 在 第 一 行 中 从 左 到 右 排列 3 个 框架 ， 然 后 在 第 二 行 中 从 左 
到 右 再 排列 3 个 框架 ， 即 两 行 三 列 ， 所 占 空间 依据 Rows 和 Cols 属性 的 值 ， 其 中 200 表示 
200 像素 。 

注 意 H 

使 用 <Frameset> 标 记 时 ，Rows 和 Cols 这 两 个 属性 至 少 选择 一 个 ， 否 则 浏览 器 只 显示 
第 一 个 定义 的 框架 。 如 果 要 固定 框架 的 结构 大 小 ， 不 允许 用 户 在 浏览 时 拖 动 改变 框架 的 大 
小 ， 可 在 HTML 代码 中 添加 一 句 <Frame NoreSize>。 


2. 确立 框架 目标 


在 框架 网 页 内 单 击 超 链接 后 , 链接 目标 就 会 出 现在 目标 框架 内 。 在 确定 目标 框架 之 前 ， 
应 该 为 它 命 名 ， 通 过 框架 网 页 的 名 称 来 确定 目标 框架 的 位 置 ， 框 架 网 页 的 名 称 应 该 注意 区 
分 大 小 写 。 内 容 相同 ， 大 小 写 不 同 的 框架 网 页 名 称 将 被 认为 是 不 同 的 框架 网 页 。 确 定 目 标 
框架 网 页 的 通用 格式 如 下 : 
«Frame Name=" 框 架 网 页 名 称 "> 
«A Href=URL,Target=" 框 架 网 页 名 称 "> 


x 
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对 于 一 些 特殊 的 框架 网 页 ，HTML 已 经 预先 为 其 设置 了 名 称 ， 这 些 常 用 的 特殊 框架 网 
页 包括 如 下 内 容 。 

e black: 空白 框架 网 页 。 单 击 链接 文本 后 ， 将 打开 一 个 新 的 浏览 器 窗口 ， 并 显示 链 
接 目标 。 

e self. 将 链接 指向 当前 框架 网 页 。 单 击 链接 文本 后 ， 链 接 目标 将 在 链接 文本 所 在 的 
框架 网 页 内 出 现 ， 并 且 链 接 文本 窗口 将 被 刷新 。 

e parent: 将 链接 指向 父 框架 网 页 。 如 果 没 有 父 框架 网 页 ， 那 么 它 就 指向 自己 。 父 杠 
架 、 子 框架 网 页 是 根据 网 页 的 结构 关系 设置 的 。 

e top: 指向 整个 浏览 器 窗口 本 身 ， 它 是 打开 网 页 时 首先 看 到 的 浏览 器 窗口 。 

3. 设置 框架 网 页 的 外 观 


框架 网 页 外 观 是 由 框架 网 页 的 边框 、 间 距 、 颜 色 、 页 边 距 、 滚 动 条 等 组 成 的 。 默 认 情 
况 下 ，HTML 提供 了 一 系列 的 默认 值 ， 分 别 对 上 述 选项 进行 设置 。 根 据 应 用 框架 网 页 的 背 
景 、 场 合 的 不 同 ， 用 户 可 以 自 定义 框架 网 页 的 外 观 。 

通过 设置 FrameBorder 属性 ， 用 户 可 以 自 定 义 边框 是 否 出 现 。 设 置 框架 网 页 边框 的 应 
用 格式 如 下 所 示 : 


«Frame FrameBorder=Y es|No> 


其 中 ，Yes 表示 在 浏览 器 窗口 显示 框架 网 页 边框 ， 如 果 用 户 选择 No， 框 架 网 页 边框 将 
消失 。 类 似 地 ， 将 FrameBorder 属性 设置 为 0 时， 框架 网 页 边框 也 将 消失 ， 但 设置 任何 大 
于 0 的 数值 时 ， 框 架 网 页 边框 都 会 出 现 ， 并 且 宽 度 是 一 致 的 。 

框架 网 页 间距 是 指 框架 网 页 之 间 的 空白 区 域 ， 框 架 网 页 的 内 容 不 会 出 现在 该 区 域 。 使 
用 <Frameset> 标 记 的 Framespacing 属性 可 以 设置 不 同 的 框架 网 页 间距 ， 当 需要 将 浏览 器 框 
架 网 页 内 所 有 的 框架 网 页 间距 设置 为 50 像素 时 ， 可 在 网 页 文件 内 添加 下 列 语句 : 


<Framest Cols-"1096,*" Framespacing=50> 


每 个 框架 网 页 都 相当 于 一 个 独立 的 网 页 ， 因 此 可 对 网 页 的 页 边 距 进行 设置 。<Frame> 
标记 的 MarginLength 和 MarginHeight 属性 分 别 用 于 设置 页 边 距 的 宽度 和 高 度 。 

当 框 架 网 页 的 内 容 超 过 框架 网 页 的 大 小 尺寸 时 ， 可 以 使 用 滚动 条 拖 动 的 方式 来 观察 整 
个 网 页 的 内 容 。 用户 可 通过 Frame 标记 的 Scrolling 属性 决定 是 否 允 许 滚动 条 出 现在 浏览 器 
窗口 。 用 户 可 将 Yes, No, Auto 赋值 给 Scrolling 属性 。 默 认 情况 下 ， 系 统 将 给 Scrolling 
属性 赋值 为 Auto, 这 样 可 根据 框架 网 页 内 容 的 多 少 , 决定 是 否 在 浏览 器 窗口 内 出 现 滚动 条 。 


【练习 2-9】 创 建 如 图 2-18 所 示 的 框架 网 页 。 
(1) 将 计算 机 接 入 Internet， 并 能 通过 IE 浏览 网 页 。 
(2) 创建 一 个 名 为 test9.html 的 网 页 ， 其 代码 如 下 所 示 (如 图 2-19 所 示 ): 


<Frameset Cols=20%,*> 
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«Frame Src="http://www.BAIDU.com"> 
<Frameset Rows=40%,*> 
«Frame Src="http://www.sina.com.cn"> 
«Frame Src="http://www.sohu.com.cn"> 
</Frameset> 


</Frameset> 


(3) 运行 test9.html 网 页 ， 效 果 如 图 2-18 所 示 


P 


图 2-18 test9.html 的 效果 图 2-19 test9.html 的 代码 


2.3.3 在 页 面 中 使 用 列表 


使 用 列表 能 够 有 效 地 表达 出 具有 并 列 、 排 序 关系 的 网 页 内 容 ， 为 访问 者 阅读 网 页 提供 
方便 。HTML 为 用 户 提供 了 编号 列表 、 符 号 列表 与 自 定义 列表 3 种 形式 。 通 过 上 述 列表 的 
相互 嵌 套 ， 还 可 以 进一步 丰富 列表 的 表现 方式 。 

1. 使 用 编号 列表 


当 网 页 中 的 某 些 内 容 存在 排序 关系 时 ， 可 以 使 用 编号 列表 ， 以 表明 这 些 内 容 是 有 前 后 
顺序 的 。 编 号 列表 的 应 用 格式 如 下 : 


<Ol> 
<Li> 编 号 列表 


</ol> 


注意 : 

在 编号 列表 的 开始 与 结束 处 ， 需 要 使 用 <OL></OL> 标 记 对 (O1 X Ordered List 英文 的 缩 
写 )， 它 用 于 定义 编号 列表 的 作用 范围 。 在 编号 列表 内 容 之 前 必须 添加 <Li> 列 表 项 标记 ( 它 
是 列表 选项 List Item 英文 的 缩写 )， 以 便 与 其 他 列表 相 区 别 。 

编号 列表 支持 Type 属性 , 属性 值 与 编号 类 型 的 对 应 关系 如 表 2-7 所 示 。 在 默认 情况 下 ， 
编号 总 是 从 该 类 型 的 第 一 个 数值 或 字母 开始 ， 通 过 Type 属性 用 户 可 以 设置 编号 列表 不 同 
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的 起 始 序号 。 


表 2-7 <Li> 标 记 的 Type 属性 设置 


Type 属性 编号 显示 方式 
A 英文 大 写字 母 ， 如 A、B、C 等 
英文 小 写字 母 ， 如 a、b、c 等 


TUXASqeB, nl. H. M% 
罗马 小 写字 母 ， 如 i 、 这 、 这 等 
阿拉 伯 字 母 ， 如 1、2、3 等 


2. 使 用 符号 列表 


当 网 页 内 容 出 现 并 列 选项 时 ， 可 采用 符号 列表 。 它 的 标记 是 <UI>(UI 是 Unordered List 英 
文 的 缩写 )， 在 每 一 列表 项 的 开始 处 须 使 用 <Li> 标 记 以 示 区 别 。 符 号 列表 的 使 用 格式 如 下 : 
<Ul> 
<Li> 符 号 列表 


默认 情况 下 ， 符 号 列表 的 项 目 符号 是 圆 点 ， 改 变 Type 属性 的 赋值 时 ， 可 以 更 换 项 目 符号 
的 形式 , 用 户 可 在 Disc( 圆 点 )、Circle( 圆 圈 )、Square( 方 块 ) 中 选择 满意 的 项 目 符号 。 将 Type 
属性 值 添加 到 <Ul> 标 记 内 ， 所 有 的 列表 项 目 都 采用 相同 的 符号 项 目 。 将 Type 属性 值 添加 
到 <Li> 标 记 内 ， 它 只 能 改变 当前 列表 的 项 目 符号 ， 通 过 这 种 方法 可 为 列表 内 的 项 目 设置 不 
同 的 项 目 符号 。 

3. 自 定义 列表 

当 网 页 内 出 现 新 词汇 、 术 语 时 ， 为 了 给 访问 者 一 个 明确 的 提示 ， 需 要 对 它们 进行 定义 
和 说 明 ， 此 时 用 户 可 以 使 用 自 定义 列表 (Definition List)。 自 定义 列表 标记 <DI> 是 由 一 系列 
的 词语 标记 <D 必 和 定义 标记 <Dd> 组 成 ,通常 <D 作 标记 与 <Dd> 标 记 成 对 出 现在 网 页 文件 内 ， 
词语 的 定义 内 容 以 首 行 缩 进 的 方式 显示 在 浏览 器 窗口 中 。 自 定义 列表 的 应 用 格式 如 下 : 

<DI> 


<Dt> 第 1 条 词语 <Dd> 定 义 内 容 
<Dt> 第 2 条 词语 <Dd> 定 义 内 容 . 


</DI> 
4. EXREIIK 


HTML 不 仅 允 许 用 户 使 用 单独 的 列表 ， 还 能 够 把 不 同类 型 的 列表 相互 嵌 套 。 嵌 套 的 级 
数 不 受 限制 ， 这 样 就 形成 复合 列表 ， 它 意味 着 第 一 个 列表 的 内 容 还 未 结束 时 ， 另 一 列表 就 
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可 以 开始 。 例 如 ， 在 自 定义 列表 内 ， 使 用 编号 列表 说 明 具 有 层次 感 的 列表 选项 ， 使 用 符号 


列表 说 明 具 有 并 列 关系 的 列表 选项 。 


【练习 2-10】 创 建 如 图 1-20 所 示 的 包含 各 种 列表 的 网 页 。 
(1) 创建 一 个 名 为 test10.html 的 网 页 ， 其 代码 如 下 所 示 ( 如 图 2-21 所 示 ): 


«pe 

<Dt>ordered<Dd> 现 代 英 汉 词 典 解释 

«or 

<Li> 安 排 好 的 ， 整 齐 的 ， <Li> 规 则 的 ， <Li> 有 秩序 的 ; 
«or 

«DCHTML 列表 <Dd> 列 表 的 种 类 

<Ul> 

<Li> 编 号 列表 <Li> 符 号 列表 <Li> 自 定义 列表 

«nr 

</DI> 


(2) 运行 test10.html 网 页 ， 效 果 如 图 2-20 所 示 。 


dH. ADANG, UDARE, 
aem m jin Ras 


an» 
[abs EH EoESTHR CoD UN 
kam. 


图 2-20 test10.html 的 效果 图 2-21 testl0.html 的 代码 


2.3.4 在 页 面 中 使 用 表单 


在 Web 网 页 中 ,表单 用 来 给 供 访问 者 填写 信息 ， 从 而 使 管理 员 能 获得 访问 者 信息 ,使 
网 页 具有 交互 功能 。 表单 设计 在 HTML 文档 中 ， 当 用 户 填写 完 信息 后 做 提交 (submit) 操 作 ， 
于 是 表单 的 内 容 就 从 客户 端的 浏览 器 传送 到 服务 器 上 ， 经 过 服务 器 上 的 ASP 或 PHP 等 处 
理 程序 处 理 后， 再 将 用 户 所 需 信息 返回 到 客户 端的 浏览 器 上 ， 这 样 网 页 就 具有 了 交互 性 。 


本 节 将 从 最 基本 的 表单 元 素 开始 ， 介 绍 如 何 使 用 HTML 的 表单 标记 来 设置 表单 。 
1. 表单 的 基本 结构 


网 页 内 的 表单 由 表单 标记 <Form> 定 义 ， 使 用 <Form> 标 记 意 味 着 表单 的 开始 ， 而 


</Form> 标 记 符号 则 意味 着 表单 的 结束 。 由 于 表单 通常 用 于 收集 站 点 访问 者 的 信息 ， 


因此 


在 表单 的 内 部 必须 出 现 输入 标记 <Input>， 用 于 收集 表单 数据 。 另 一 方面 ， 还 可 将 表单 数据 
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发 送 给 站 点 管理 员 ， 或 清除 表单 的 内 容 ， 重 新 输入 表单 。 表 单 标记 的 基本 结构 如 下 所 示 : 


«Form Action-URL Method=getlpost> 


«Input Type=Submit> 
«Input Type-reset^ 
</Form> 


表单 标记 <Form> 最 重要 的 属性 就 是 Action 和 Method. Action 属性 用 于 指定 表单 处 理 
程序 的 URL。 例 如 <form action="login.asp">， 当 用 户 提交 表单 时 ， 服 务 器 将 执行 该 HTML 
文件 所 在 文件 夹 中 名 为 login.asp 的 ASP 程序 。 

Method 属性 用 于 定义 处 理 站 点 访问 者 提供 数据 的 方法 ， 可 取 值 为 GET 或 POST。 在 
GET 方式 下 ， 处 理 程序 从 当前 HTML 文档 中 获取 数据 ， 然 而 这 种 方式 传送 的 数据 量 是 有 
所 限制 的 ,一 般 限制 在 IKB 以 下 .POST 方式 与 GET 方式 相反 ,在 POST 方式 下 当前 HTML 
文档 把 数据 传送 给 处 理 程序 ， 传 送 的 数据 量 要 比 使 用 GET 方式 大 得 多 。 

2. 表单 的 用 户 输入 区 域 


表单 是 一 个 能 够 包含 多 种 不 同 表 单元 素 的 区 域 。 表 单元 素 能 够 让 用 户 在 表单 中 输入 信 
息 ， 有 文本 框 、 密 码 框 、 下 拉 菜 单 、 单 选 按钮 和 复 选 框 等 。 

最 常用 的 表单 输入 标记 是 <Input> 标 记 , 用 来 定义 输入 区 ， 用户 可 在 其 中 输入 信息 。<Input 
Type="> 标 记 提供 了 8 种 类 型 的 输入 区 域 ， 由 Type 属性 来 决定 区 域 类 型 ， 如 表 2-8 所 示 。 


表 2-8_ 表单 的 各 项 组 成 元 素 


Type 属性 取 值 输入 区 域 类 型 输入 区 域 示例 
«Input Type-"Text" 单行 文本 输入 区 域 。Size 与 Maxlength 属性 姓名 : [| 
Size-"" Maxlength=""> 用 来 定义 显示 的 大 小 与 可 输入 的 最 大 字符 数 


. 将 表单 内 容 提 交 给 服务 器 的 按钮 
Type="Submit"> 


<Input Type="Reset"> 将 表单 内 容 全 部 清除 ， 重 新 填写 


的 按钮 *E 


-Input Type-"Checkbog ” 复 选 框 -Checked 属性 用 来 设置 复 选 框 在 默认 | 。 请 选择 你 的 爱好 
E ERMER 区 文学 


Checked> 情况 下 是 否 被 选中 
<Input 隐藏 区 域 。 用 户 不 能 在 其 中 输入 ， 常 用 来 预 一 
Type="Hidden"> 设 某 些 要 传送 的 信息 


使 用 图 像 来 代替 Submit 按钮 ， 图 像 的 源 文件 


名 由 sic 属性 指定 。 用 户 单 击 后 ， 表 单 中 的 信 


息 和 单 击 位 置 的 X、Y 坐标 一 起 传送 给 服务 器 

<Input 输入 密码 的 区 域 。 当 用 户 输入 密码 时 ， 区 域 WRROSEB: 
Type-"Password" 内 将 会 显示 “*” 号 

<Input Type-Radio" | 单 选 按钮 -Checked 属性 用 来 设置 单 选 按钮 默 FA 


Checked> 认 情 况 下 是 否 被 选中 
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上 面 8 种 类 型 的 输入 区 域 有 一 个 公共 的 属性 Name， 此 属性 为 每 一 个 输入 区 域 设置 一 个 
名 字 ， 一 个 输入 区 域 对 应 一 个 名 字 ， 服 务 器 就 是 通过 调用 某 一 输入 区 域 的 名 字 的 Value 属性 
来 获得 该 区 域 的 数据 ， 而 Value 属性 是 另 一 个 公共 属性 ， 它 可 用 来 指定 输入 区 域 的 默认 值 。 


3. 表单 的 列表 框 

列表 框 是 确定 选项 内 容 的 另 一 种 方式 ， 它 包括 下 拉 列 表 框 和 滚动 列表 框 两 种 ， 在 下 拉 
列表 框 内 ， 只 能 选择 其 中 的 一 个 选项 ;在 滚动 列表 框 内 ， 则 可 以 选择 其 中 的 多 项 内 容 。 表 
单 的 列表 框 是 由 <Select> 和 <Option> 两 个 标记 来 定义 的 ， 它 的 使 用 格式 如 下 所 示 : 


«Select Name= "name"> 
<Option> 
</Select> 


<Select> 标 记 具 有 Multiple, Name 和 Size ^$/&TE. Multiple 属性 无 需 赋值 ， 直 接 加 入 
标记 中 即 可 使 用 ， 加 入 此 属性 后 列表 框 就 成 了 多 选 的 了 ; Name 属性 用 于 确定 该 控件 的 名 
Wk; Size 属性 用 来 设置 列表 的 高 度 ， 默 认 值 为 1。 

<Option> 标 记 用 来 指定 列表 框 中 的 一 个 选项 , 它 放 在 <Select></Select> 标 记 对 之 间 , 此 
标记 具有 Selected 和 Value 属性 。Selected 属性 用 来 指定 默认 的 选项 ，Value 属性 用 来 给 
<Option> 标 记 指 定 选项 赋值 , 这 个 值 是 要 传送 到 服务 器 上 的 , 服务 器 正 是 通过 调用 <Select> 
区 域 的 名 字 的 Value 属性 来 获得 该 区 域 选中 的 数据 项 。 


【练习 2-11】 创 建 如 图 2-22 所 示 的 包含 列表 框 的 表单 网 页 。 
(1) 创建 一 个 名 为 test] html 的 网 页 ， 其 代码 如 下 所 示 (如 图 2-23 所 示 ): 


<form action="apply.asp" method="post"> 
<P> 请 选择 你 的 年 龄 : 
«Select name-"old" Size="1"> 
<option Value=" 少 年 ">9~18 
«option Value=" 青 年 " selected>19~35 
<option Value=" 中 年 ">36~55 
<option Value=" 老 年 ">55 以 上 
</Select> 
<P> 请 选择 你 所 在 的 城市 : 
<Select name="city" multiple Size="4"> 
<option Value="beijing"> 北 京 
<option Value="shanghai" selected> 上 海 
<option Value="nanjing"> 南 京 
«option Value="zhengzhou"> 郑 州 
</Select> 


</form> 


(2) 运行 test11.html 网 页 ， 效 果 如 图 2-22 所 示 。 
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图 2-22 testll.html 的 效果 图 2-23 testll.html 的 代码 


4. 文本 框 与 文件 选项 


<Textarea></Textarea> 标 记 对 用 来 创建 一 个 可 以 输入 多 行文 本 的 文本 框 ， 此 标记 对 用 
于 <Form></Form> 标 记 对 之 间 。<Textarea> 标 记 时 具有 Name. Cols 和 Rows 属性 。Cols 和 


Rows 属性 分 别 用 来 设置 文本 框 的 列 数 和 行 数 ， 这 是 
如 果 在 表单 内 填写 的 内 容 太 多 ， 例 如 个 人 工作 
单 内 添加 文件 选项 。 


在 表单 内 添加 文件 选项 时 ， 用 户 可 使 用 <Form> 标 记 的 Enctype 属性 来 指定 文件 的 数据 


县 列 与 行 是 以 字符 数 为 单位 的 。 
经 历 等 ， 为 了 方便 访问 者 填写 ， 可 在 表 


类 型 ， 使 用 该 属性 还 需要 将 <Input> 标 记 的 Type 属性 设置 为 File。 


【练习 2-12】 创 建 如 图 2-24 所 示 的 包含 文本 框 与 文件 选项 的 表单 网 页 。 
(1) 创建 一 个 名 为 test12.html 的 网 页 ， 其 代码 如 下 所 示 ( 如 图 2-25 所 示 ): 


<Form Action="select.asp"Method="post"> 
<P> 请 输入 留言 : 
<Textarea name-"ly" Cols="20" Rows="4"> 
请 在 这 里 输入 您 的 看 法 和 见解 
</Textarea> 
<Br><Br><Hr Align=left><Br> 
请 选择 上 传 的 文件 :<Input name="filename" Type=" 
<Input Type=Submit Value=" 提 交 "> 
<Input Type-Reset Value=" 重 选 "> 
</Form> 


(2) 将 输入 的 代码 保存 后 ， 测 试 网 页 ， 效 果 如 图 2-24 所 示 。 


图 2-24 test12.html 的 效果 


"file"><P> 


图 2-25 test12.html 的 代码 
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2.3.5 ”使 用 动态 HTML(DHTML) 


使 用 DHTML 技术 , 可 通过 浏览 器 技术 、 客 户 端 脚本 技术 和 CSS 样式 表 生 成 变化 缤纷 
的 动态 页 面 。 

DHTML 是 Dynamic HTML( 动 态 HTML) 的 简称 ， 它 是 一 种 即使 在 脱离 网 络 环境 的 情 
况 下 ， 网 页 装载 到 浏览 器 后 仍然 能 够 随时 变换 内 容 的 技术 。 例 如 ， 当 鼠标 指针 移 至 文章 段 
落 中 ,段落 能 变 成 醒目 的 红色 或 蓝 色 ; 在 网 页 的 页 面 上 ,随机 地 漂浮 着 一 些 漂亮 的 小 标志 ; 
网 页 横幅 不 断 地 滑动 或 具有 滚动 闪 亮 的 效果 等 。 

DHTML 之 所 以 能 够 制作 出 “动感 ”的 效果 ， 首 先是 因为 DHTML 将 网 页 中 的 每 个 元 
素 划 分 成 了 许多 独立 的 对 象 ， 通 过 CSS 来 指定 这 些 对 象 的 属性 。 

CSS 是 DHTML 网 页 进行 改变 的 对 象 ， 网 页 中 的 各 种 变化 都 是 通过 脚本 语言 设置 CSS 
的 属性 来 实现 的 。 因 此 可 以 说 CSS 是 编写 DHTML 网 页 的 基础 。 

CSS 本 身 是 HTML 的 扩展 ， 因 此 语法 规则 并 不 复杂 ， 掌 握 HTML 语言 使 用 方法 后 就 
不 难看 懂 css 代码 。CSS 的 功能 十 分 强大 ， 它 能 够 对 文字 间距 、 字 体 、 列 表 、 颜 色 、 背 景 、 
位 置 等 多 种 属性 进行 精确 控制 。 

将 css 样式 表 添 加 到 HTML 文档 的 方法 有 多 种 ， 可 链接 外 部 样式 表 、 垦 入 样式 表 ， 
以 及 输入 样式 、 内 联 样 式 等 。 

另外 ，CSS 还 有 具有 艺术 功能 的 滤 镜 效果 。 滤 镜 效 果 将 可 视 化 的 滤 镜 和 转换 效果 添加 
到 标准 的 HTML 元 素 上 ， 可 进行 有 序 地 变化 和 更 蔡 演 示 ,， 产生 精彩 的 渐变 和 动画 效果 。 运 
用 好 动态 网 页 技术 ， 可 使 制作 的 网 页 美 仑 美 负 ， 大 放 异 彩 。 


24 J 题 


2.4.1 填空 题 


(1) HTTP 即 协议 ， 它 是 WWW 服务 器 使 用 的 最 主要 的 协议 。 
Q) 标记 用 于 HTML 文档 的 最 前 边 ， 用 来 标识 HTML 文档 的 开始 。 而 
放 在 HTML 文档 的 最 后 边 ， 用 来 标识 HTML 文档 的 结束 。 

(3) <Hr> 标 记 的 Width 属性 用 于 设置 水 平 线 宽度 ， 默 认 单位 是 ， 也 可 使 用 
占 浏 览 器 窗口 的 百分比 来 设 定 。 

(4) 在 <Body> 标 记 的 属性 中 , 用 于 设置 网 页 背景 颜色 的 是 ， 用 于 设置 网 页 
文本 颜色 的 是 o 

(5) 表单 标记 <Form> 的 属性 用 于 指定 表单 处 理 程序 的 URL, 
属性 用 于 定义 处 理 站 点 访问 者 提供 数据 的 方法 。 

(6) «Input Type=""> 标 记 的 属性 用 于 为 输入 区 域 命名 ， 属性 
用 来 指定 输入 区 域 的 默认 值 。 
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242 选择 题 


(1) 下 面 关 于 标记 的 说 法 不 正确 的 是 (  )。 
A. 标记 需要 填写 在 一 对 尖 括 号 (< >) 内 
B. 在 书写 标记 时 ， 英 文字 母 的 大 小 写 或 混合 使 用 大 小 写 都 是 允许 的 
C. 标记 内 可 以 包含 一 些 属 性 ， 属 性 名 称 出 现在 标记 的 后 面 ， 并 且 以 分 号 进行 分 隔 
D. HTML 对 属性 名 称 的 排列 顺序 没有 特别 的 要 求 
Q) 以 下 标记 中 ，( ，) 可 用 于 在 网 页 中 插入 图 像 。 
A. <Img> 标 记 B. <Br> 标 记 
C. <H3> 标 记 D. <src> 标 记 
(3) 下 面 关 于 表格 属性 的 说 法 不 正确 的 是 (  )。 
A. Border 值 为 边框 的 宽度 ， 若 不 设置 此 属性 ， 则 边框 宽度 默认 为 0 
B. Cellspacing 属性 用 于 设置 表格 单元 格 与 单元 格 之 间 的 空间 大 小 
C. Width 属性 用 于 设置 整个 表格 的 宽度 ， 单 位 用 绝对 像素 值 或 总 宽度 的 百分比 
D. Color 属性 用 于 设置 表格 的 颜色 ， 可 用 6 个 十 六 进 制 数 来 表示 
(4) 在 超 链 接 中 如 果 指 定 ( MERHER, 链接 目标 将 在 链接 文本 所 在 的 框架 网 页 内 出 
现 ， 并 且 链 接 文本 窗口 将 被 刷新 。 


A. Black B. Self C. Parent D. Top 

(5) 用 户 可 通过 <Frame> 标 记 的 (  ) 属 性 决定 是 否 允 许 滚动 条 出 现在 浏览 器 窗口 。 
A. FrameBorder B. Scrolling 
C. Name D. MarginHeight 

(6) -Input Type="Reset"> 是 一 个 ( — ). 
A. 文本 杠 B. 重新 填写 的 按钮 
C. 下 拉 菜 单 D. 提交 给 服务 器 的 按钮 

24.3 ”操作 题 


(1) 利用 各 种 编辑 文本 的 HTML 标记 建立 如 图 2-26 所 示 的 网 页 。 
(2) 利用 建立 表单 的 各 种 HIML 标记 建立 如 图 2-27 所 示 的 网 页 。 


a-e re Ome "| 
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VBScript 是 Macromedia 公司 开发 的 一 种 脚本 语言 ， 可 以 用 来 编写 用 于 客户 端 和 服务 
器 端 上 的 脚本 程序 。ASP 利用 它 创 建 动 态 程序 代码 ， 用 户 可 以 将 其 视 为 简化 版 的 Visual 
Basic。 本 章 将 简要 地 介绍 VBScript 的 应 用 基础 与 常用 函数 ， 以 帮助 用 户 在 学 习 ASP 时 更 
好 地 利用 其 功能 。 

通过 本 章 的 理论 学 习 和 练习 ， 用 户 应 了 解 和 掌握 以 下 内 容 : 

了 解 使 用 VBScript 配置 ASP 的 方法 
T fi VBScript 的 特点 

T fif VBScript 的 变量 

T fif VBScript 的 常数 

T fif VBScript 的 数据 类 型 

掌握 VBScript 常用 语句 的 使 用 方法 
T HE VBScript 的 过 程 与 函数 


3.1 使 用 VBScript 配置 ASP 


ASP 本 身 并 不 是 一 种 脚本 语言 ， 但 它 却 为 嵌入 HTML 页 面 中 的 脚本 语言 提供 了 运行 环 
境 。 在 ASP 程序 中 常用 的 脚本 语言 有 VBScript 和 JScript 等 语言 ， 系 统 默认 的 语言 为 
VBScript。 在 本 节 和 后 续 章 节 中 ， 将 介绍 一 些 与 ASP 开发 相关 的 或 是 很 重要 的 VBScript 
基础 知识 。 

脚本 是 由 一 系列 的 脚本 命令 所 组 成 的 ， 如 同一 般 的 程序 ， 脚 本 可 以 将 一 个 值 赋 给 一 
个 变量 ， 可 以 命令 Web 服务 器 发 送 一 个 值 到 客户 浏览 器 ， 还 可 以 将 一 系列 命令 定义 成 一 
个 过 程 。 

VBScript 来 源 于 Visual Basic 的 子 集 VBA(Visual Basic for Application)。VBA 是 
Microsoft Office Suite 和 其 他 应 用 程序 的 宏 编 程 语 言 ， 利 用 它 可 以 扩展 Office 的 功能 。 

ASP 能 支持 多 种 脚本 语言 , 在 编写 ASP 代码 时 通常 有 3 种 方法 来 声明 所 使 用 的 脚本 语 
言 种 类 : 用 IIS 指定 默认 脚本 语言 ， 在 ASP 文件 中 进行 脚本 语言 声明 ， 以 及 在 <Script> 标 
记 中 加 入 所 需 的 语言 。 


3.1.1 通过 IIS 指定 ASP 使 用 VBScript 


用 户 可 通过 IIS 指定 默认 使 用 的 脚本 语言 ， 只 要 是 <% 和 %> 之 间 的 代码 ，ASP 在 解释 
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时 会 认为 使 用 的 是 默认 脚本 语言 。 

【练习 3-113831 "Internet 信息 服务 ”控制 台 来 设 定 ASP 的 默认 脚本 语言 为 VBScript。 

(1) 选择 “开始 ”| “运行 ”命令 ， 打 开 “运行 ”对 话 框 ， 输入 inetmgr 命令 ， 并 按 Enter 
键 。 
(2) 系统 打开 IIS 的 管理 工具 “Internet 信息 服务 ”控制 台 ， 右 击 欲 设置 的 网 站 名 称 
从 弹出 的 快捷 菜单 中 选择 “属性 ”命令 ， 如 图 3-1 所 示 。 

(3) 打开 “ 主 目录 ”选项 卡 ， 单 击 “配置 ”按钮 ， 打 开 “ 应 用 程序 配置 ”对 话 框 ， 并 
打开 “选项 ”选项 卡 ， 如 图 3-2 所 示 。 

(4) 在 “默认 ASP 语言 ”文本 框 中 输入 VBScript, REŽE “WR” ha. 
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图 3-1 右 击 需要 设置 的 网 站 图 3-2 “应 用 程序 配置 ”对 话 框 


3.1.2 在 ASP 文件 中 声明 脚本 语言 


如 果 在 某 一 单个 页 面 指定 脚本 语言 ， 可 在 文件 初始 部 分 用 一 条 声明 语句 进行 指定 。 须 
要 特别 注意 的 是 ， 该 语句 一 定 要 放 在 所 有 语句 之 前 ， 如 下 例 所 示 : 
<%@ Language=VBScript %> 
<Html><Head> 


</Html></Head> 
3.1.3 ”在 <Script> 标 记 中 加 入 脚本 语言 


最 灵活 、 作 用 范围 最 小 的 脚本 语言 指定 方法 是 使 用 <Script> 标 记 ， 即 在 <Scrip 人 标记 中 
加 入 所 需 的 语言 。 在 一 个 已 设 定 主 脚 本 语言 的 页 面 中 ， 使 用 <Scrip 人 标记 仍 可 以 指定 页 面 
的 某 一 部 分 采用 其 他 的 脚本 语言 ， 如 下 例 : 
<Html><Head> 
<Body> 
«Script Language="VBScript" Runat="Server"> 
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Response.Write("hello world!") ' 在 屏幕 上 输出 hello world! 
</Script> 

</Body> 

</Html></Head> 


在 这 里 ，<Script> 标 记 的 Language 属性 限定 了 包含 的 语句 使 用 了 哪 一 种 语言 。Runat 属 
性 指出 该 脚本 应 当 在 Server 端 还 是 在 Client 端 (浏览 器 上 ) 实 现 。 有 时 为 了 某 种 需要 ， 可 能 
会 指定 VBScript 代码 放 在 客户 端 执行 ， 此 时 将 Runat="Server" 删 去 即 可 ， 如 下 例 所 示 : 
<Script Language="VBScript" > 
Msgbox(" 这 是 一 个 弹出 信息 对 话 框 ") ' 弹 出 一 个 显示 括号 内 信息 的 对 话 框 
</Script> 


注意 : 

MsgBox 用 于 显示 一 个 信息 对 话 框 ， 而 InputBox 用 于 产生 一 个 文本 输入 框 ， 它 们 都 是 
解释 后 立即 在 当前 位 置 执行 的 语句 ， 所 以 它们 不 能 在 服务 器 端 脚 本 中 使 用 。 

在 ASP 程序 中 ， 可 以 灵活 地 反复 使 用 <Script> 标 记 ， 这 样 不 仅 可 以 混合 使 用 服务 器 端 
脚本 和 客户 端 肢 本， 而 且 还 可 以 混合 多 种 脚本 语言 代码 。 


32 VBScript 的 基本 元 素 


VBScript 是 Visual Basic 的 子 集 ， 编 程 方法 和 Visual Basic 基本 相同 。 本 节 将 学 习 
VBScript 中 的 数据 类 型 、 运 算 符 、 常 量 、 变 量 和 数组 等 基本 元 素 的 概念 和 使 用 方法 。 


3.2.1 数据 类 型 


VBScript 只 有 一 种 数据 类 型 ， 即 Variant 类 型 ， 也 叫做 变 体 类 型 。Variant 类 型 可 以 在 
不 同 的 场合 代表 不 同类 型 的 数据 。 例 如 ，Variant 类 型 用 于 数字 时 ， 将 作为 数值 处 理 ; 用 于 
字符 串 时 ， 将 作为 字符 串 处 理 。 


注意 : 
由 于 Variant 类 型 是 VBScript 中 唯一 的 数据 类 型 ， 因 此 也 是 VBScript 中 所 有 函数 返回 
值 的 数据 类 型 。 


大 多 数 情况 下 ，Variant 类 型 会 按照 最 适用 于 其 包含 的 数据 方式 进行 操作 。 例 如 : 


Variable-2004 "VBScript 会 把 Variable 当成 整数 对 待 
Variable= "2004" "VBScript 会 把 Variable 当成 字符 串 对 待 


Variable=#2004-07-13# ”VBScript 会 把 Variable 当成 日 期 对 待 
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VBScript 还 会 根据 代码 的 上 下 文 自动 转换 数据 的 子 类 型 。 例 如 Variable 1="2004"， 这 
里 把 Variable 1 看 作为 一 个 字符 串 ， 而 如 果 下 面 有 一 句 Variable 2= Variable 1+3， 这 时 
VBScript 就 会 自动 将 Variable 1 转换 为 整数 变量 ， 然 后 参与 运算 。 

根据 Variant 类 型 所 能 够 包含 的 数值 信息 类 型 的 不 同 ， 可 以 将 这 种 特殊 的 数据 类 型 细 
分 为 多 种 子 类 型 ， 各 子 类 型 名 称 及 其 说 明 如 表 3-1 所 示 。 

表 3-1 Variant 类 型 的 子 类 型 

子 类 型 说 n 

声明 一 个 变量 后 ， 如 果 还 没有 初始 化 ， 则 该 变量 的 值 是 Empty。 可 以 用 IsEmptyO 
函数 来 测试 变量 是 否 已 初始 化 。 当 变量 为 Empty 值 时 ， 可 以 在 表达 式 中 使 用 ， 至 于 
Empty 是 将 其 作为 0 还 是 作为 零 长 度 的 字符 串 来 处 理 ， 要 根据 具体 的 表达 式 来 定 。 只 要 将 
任何 值 (包括 0、 零 长 度 字符 串 或 Null) 赋 予 变量 ，Empty 值 就 会 消失 ， 而 将 关键 字 
Empty 赋予 变量 ， 就 可 以 将 变量 恢复 为 Empty 值 
空 值 ， 表 示 不 包含 任何 有 效 数据 。Null 常用 于 数据 库 应 用 程序 ， 表 示 未 知 数据 或 丢 
失 的 数据 。 如 果 表 达 式 中 包含 Null， 那 么 计算 结果 总 是 Null。 将 Null、 值 为 Null 


i 的 变量 或 计算 结果 为 Null 的 表达 式 作 为 参数 传递 给 大 多 数 函 数 ， 将 使 函数 返回 
Null。 可 以 使 用 IsSNull0 函 数 来 测试 表达 式 是 否 包 含 任 何 有 效 的 数据 

Boolean 包含 逻辑 值 ， 只 有 True IÈ False 这 两 个 值 

Byte 表示 0-255 之 间 的 整数 

Integer 表示 - 32 768~32 767 之 间 的 整数 
表示 - 922 337 203 685 477.580 8~922 337 203 685 477.580 7 之 间 的 数 。Currency 是 

By 一 个 精确 的 定点 类 型 ， 适 用 于 货币 运算 

Long 表示 - 2 147 483 648-2 147 483 647 之 间 的 整数 

Single 单 精 度 浮 点 数 ， 负 数 范围 从 - 3.402 823E38- - 1.401 298E - 45， 正 数 范围 为 
1.401 298E - 45-3.402 823E38 

onn 双 精 度 浮 点 数 ， 负 数 范围 为 - 1.797 693 134 862 32E308- - 4.940 656 454 841 247E - 


324， 正 数 范围 为 4.940 656 458 412 47E - 324~1.797 693 134 862 32E308 
表示 日 期 数值 ， 日 期 范围 从 公元 100 年 1 月 1 日 至 公元 9999 年 12 H 31 日 。 时 间 
Date(Time) 值 从 00:00:00 至 23:59:59. 在 代码 中 使 用 日 期 和 时 间 值 时 , 必须 用 一 对 # 号 将 其 括 起 
来 ， 如 #3 - 10 - 2007 4:20:16 PM# 等 。AM 表示 上 午 ，PM 表示 下 午 


String 表示 字符 串 数值 ， 字 符 串 的 最 大 长 度 可 为 20 亿 个 字符 
Object 引用 程序 所 能 识别 的 任何 对 象 
Error 包含 错误 号 

注意 : 


在 使 用 Variant 类 型 的 数据 子 类 型 时 ,可 以 使 用 转换 函数 来 转换 数据 的 子 类 型 ， 也 可 以 
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使 用 VarType 函数 返回 数据 的 Variant 子 类 型 。 关 于 这 些 函 数 的 详细 信息 ， 可 查看 第 3.5 节 
的 相关 内 容 。 


322 ”运算 符 


VBScript 提供 了 4 种 类 型 的 运算 符 ， 即 算术 运算 符 、 连 接 运 算 符 、 关 系 运算 符 和 逻辑 
运算 符 。 将 运算 符 和 操作 数 连接 起 来 ， 就 构成 了 表达 式 。 
1. 算术 运算 符 
算术 运算 符 就 是 日 常 的 数学 运算 符 , 如 加 (+)、 减 ( - )、 乘 (9)、 除 ()、 整 除 Q、 取 模 (Mod)、 
指数 (^) 和 一 元 减 (数值 取 反 )。 
2. 连接 运算 符 
连接 运算 是 将 两 个 字符 表达 式 连接 起 来 ,生成 一 个 新 的 字符 串 。 连 接 运算 符 有 + 入 两 个 。 
使 用 & 运 算 符 时 ， 参 与 连接 的 两 个 表达 式 可 以 不 全 是 字符 串 ， 即 & 运 算 符 能 强制 性 地 
将 两 个 表达 式 的 值 作为 字符 串 连 接 。 例 如 : 
<% 
money=56 


strTemp=" 应 收 金额 ="&money 
%> 


而 使 用 + 运算 符 时 ， 操 作 数 必 须 是 字符 串 。 例 如 : 


<% 
money="56" 
strTemp=" 应 收 金额 ="+money 


%> 

3. 关系 运算 符 

关系 运算 符 用 来 比较 两 个 表达 式 的 值 的 大 小 ， 如 大 于 (>)、 小 于 (<)、 大 于 等 于 (>=)、 小 
于 等 于 (<=)、 不 等 于 (< >) 和 等 于 (=)。 关 系 运算 的 结果 是 逻辑 值 True 或 False。 关 系 运 算 可 
用 于 数值 间 的 比较 ， 也 可 用 于 字符 串 间 的 比较 。 当 用 于 字符 串 间 的 比较 时 ， 将 按 ASCI 码 
值 的 大 小 由 左 向 右 依次 逐个 比较 字符 ， 直 到 比较 出 结果 为 止 。 

4. 逻辑 运算 符 

逻辑 运算 通常 也 称 为 布尔 运算 ,专门 用 于 逻辑 值 之 间 的 运算 。 逻 辑 运算 的 各 运算 符 及 
其 含义 如 表 3-2 所 示 。 
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表 3-2 逻辑 运算 符 


Not(3>1) 3 大 于 1 为 真 , 取 反 后 为 假 
两 个 表达 式 的 值 都 为 真 时 
才 为 真 

两 个 表达 式 的 值 有 一 个 为 
真 即 为 真 

两 个 表达 式 的 值 有 一 个 且 
只 有 一 个 为 真 时 才 为 真 
仅 当 两 个 表达 式 的 值 相 同 
时 才 为 真 


"m 仅 当 第 一 个 表达 式 的 值 为 丰 
> <i 

SA ii 时 才 为 真 

5. 运算 符 的 优先 级 


当 一 个 表达 式 包 含有 多 个 运算 符 时 ， 执 行 运算 的 符号 有 一 个 固定 的 优先 计算 顺序 ， 如 
下 所 示 : 


(3>1) And(2<4) 


(3>1) Or(2=4) 


(3>1) Xor(2<4) 


(3-1) Eqv(4-2) 


算术 运算 符 > 连 接 运 算 符 > 关系 运算 符 > 逻辑 运算 符 
对 于 同 优先 级 的 运算 符 ， 以 从 左 到 右 的 顺序 进行 计算 。 在 表达 式 中 ， 可 以 使 用 括号 改 
变 计 算 的 优先 顺序 ， 强 令 表达 式 的 某 些 部 分 优先 运算 。 括 号 内 的 运算 总 是 优先 于 括号 外 的 


注意 : 
算术 运算 符 之 间 的 优先 顺序 是 : 指数 、 一 元 减 、 夹 除 、 取 模 和 加 减 。 逻 辑 运算 符 之 间 
的 优先 顺序 按 表 3-2 所 示 从 上 到 下 逐渐 降低 。 


323 常量 


常量 就 是 拥有 固定 数值 的 名 称 ， 常 量 可 以 代表 字符 串 、 数 字 等 常数 。 常 量 一 经 声明 
在 程序 执行 期 间 ， 其 值 不 会 发 生 改 变 。 
声明 常量 后 可 以 在 程序 的 任何 部 分 使 用 该 常量 来 代表 特定 的 数值 ， 从 而 方便 程序 的 编 
写 。 例如， 在 计算 程序 中 常用 PI 来 表示 z 的 近似 值 3.141 592 6, 这样 即 不 容易 出 错 , 程序 
也 更 加 简洁 明了 ， 并 且 在 程序 的 其 他 地 方 就 可 以 使 用 PI 来 表示 的 近似 值 了 。 例 如 : 
<% 
Const PI=3.1415926 "指定 PI 为 常量 ， 其 值 为 3.141 592 6 
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S-PI*R^2 " 求 半径 为 R 的 圆 的 面积 ， 并 将 值 赋 给 S 
%> 
注意 : 
如 果 要 在 多 个 ASP 文件 中 使 用 一 些 相 同 的 常量 ， 则 可 以 把 常量 定义 放 在 单独 的 文件 
中 ， 然 后 在 所 有 使 用 这 些 常 量 的 ASP 文件 中 包含 这 些 定义 即 可 。 


324 变量 


变量 用 于 引用 计算 机 内 存 地 址 ， 该 地 址 可 以 存储 程序 运行 时 可 更 改 的 程序 信息 。 在 程 
序 中 ， 常 用 变量 来 临时 存储 数据 。 

1. 声明 变量 

声明 变量 有 显 式 声明 和 隐 式 声明 两 种 方式 。 显 式 声明 要 用 到 Dim 语句 、Public 语句 和 
Private 语句 。 例 如 : 


<% Dim strUserName %> 
声明 多 个 变量 时 ， 可 使 用 逗号 来 分 隔 变量 。 例 如 : 
<% Dim strUserName,strPassword,b 967 


隐 式 声明 变量 没有 声明 变量 语句 ， 而 直接 使 用 变量 名 。VBSeript 在 使 用 变量 时 ， 就 会 
自动 创建 该 变量 。 例 如 : 


<% dtmToay -Now() %> 
当前 日 期 和 时 间 是 <96 =dtmToday %> 


2. 强制 显 式 声明 
变量 采用 隐 式 声明 的 方法 很 方便 ， 但 常常 会 导致 难以 查找 的 错误 。 例 如 : 


<% dtmToday-Now() %> 
当前 日 期 和 时 间 是 <% =dtmToday %> 


以 上 代码 看 起 来 好 像 没有 问题 , 结果 应 该 和 前 面 的 代码 一 样 。 但 由 于 在 ASP 输出 命令 
中 将 dtmToday 写 错 了 ， 因 此 无 法 显示 出 当前 的 日 期 和 时 间 。 这 是 因为 当 VBScript 遇 到 新 
的 名 字 时 ， 无 法 确定 到 底 是 隐 式 声明 了 一 个 新 变量 ， 还 是 仅仅 把 现 有 变量 名 写 错 了 ， 于 是 
只 好 用 新 名 字 再 创建 一 个 新 变量 。 

为 了 避免 隐 式 声明 时 写 错 变量 名 引起 的 问题 ，VBScript 提供 了 Option Explicit 语句 来 强 
制 显 式 声明 。 如 果 在 程序 使 用 该 语句 , 则 所 有 变量 必须 先 声 明 , 然后 才能 使 用 , 否则 会 出 错 。 
Option Explicit 语句 必须 位 于 ASP 处 理 命令 之 后 ， 任 何 HTML 文本 或 脚本 命令 之 前 。 例 如 : 
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<% @  Language-VBScript % > 
<% Option Explicit %> 
<% Dim strUserName %> 


s 


变量 命名 约定 


给 变量 起 名 称 时 ,一定 要 遵循 VBScript 的 标准 命名 规则 ， 变 量 命名 必须 遵循 以 下 几 个 
方面 : 
第 一 个 字符 必须 是 字母 。 
不 能 包含 句点 。 
长 度 不 能 超过 255 个 字符 。 
在 声明 的 作用 域内 必须 唯一 。 
名 字 不 能 和 关键 字 同 名 。 

VBScript 不 区 分 变量 名 称 的 大 小 写 。 例 如 ， 将 一 个 变量 命令 为 strUserName 和 将 其 命 
名 为 STRUSERNAME 效果 是 一 样 的 。 另 外 ， 给 变量 命名 时 ， 要 含义 清楚 ， 便 于 记忆 。 建 
议 尽 量 按 表 3-3 所 示 的 前 级 来 命名 变量 ， 以 便 通过 变量 的 名 称 便 可 获知 该 变量 的 子 类 型 。 


表 3-3_ 用 来 表示 子 类 型 的 名 字 前 级 


intAge 


sl aa | 


dblTolerance bytRasterData 
blnMarried 


[| 


4. 变量 的 作用 域 与 存活 期 


变量 的 作用 域 由 声明 的 位 置 决定 。 如 果 在 过 程 中 声明 变量 ， 则 只 有 该 过 程 中 的 代码 可 
访问 或 更 改变 量 值 ， 此 时 变量 具有 局 部 作用 域 并 称 为 过 程 级 变量 。 如 果 在 过 程 之 外 声明 变 
量 ， 则 该 变量 可 以 被 脚本 中 所 有 过 程 所 识别 ， 称 为 脚本 级 变量 ， 具 有 脚本 级 作用 域 。 

变量 存在 的 时 间 称 为 存活 期 。 脚 本 级 变量 的 存活 期 从 被 声明 的 那 一 刻 起 ， 直 到 脚本 运 
行 结束 。 对 于 过 程 级 变量 ， 其 存活 期 仅 是 该 过 程 运 行 的 时 间 ， 该 过 程 结束 后 ， 变 量 随 之 消 
失 。 在 执行 过 程 时 ， 局 部 变量 是 理想 的 临时 存储 空间 。 可 以 在 不 同 过 程 中 使 用 同名 的 局 部 
变量 ， 这 是 因为 每 个 局 部 变量 只 被 声明 它 的 过 程 识别 。 


3.25 数组 


数组 变量 是 一 类 具有 相同 名 字 ， 但 有 不 同 的 下 标 值 的 变量 ， 简 称 数组 。 数 组 中 的 每 个 
元 素 都 用 唯一 的 下 标 来 识别 。 例 如 intAge(9) 中 ，intAge 是 数组 名 ，9 是 下 标 。 
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数组 变量 的 声明 同 简单 变量 相同 ， 唯 一 的 区 别 是 声明 数组 变量 时 变量 名 后 面 带 有 括 
号 ， 如 下 面 的 代码 声明 了 一 个 包含 20 个 元 素 的 一 维 数组 : 


Dim IngSum (19) 


数组 的 下 标 是 从 0 开始 的 ， 数 组 元 素 的 数目 是 括号 中 的 显示 的 数目 加 1， 所 以 上 面 这 
个 数组 变量 实际 上 包含 20 个 元 素 。 下 面 的 代码 可 以 对 上 面 定 义 的 数组 进行 赋值 : 
lngSum (0)=1 
lngSum (1)=2 
lngSum (2)=3 


lngSum (19)=20 
具有 两 个 或 多 个 下 标的 数组 称 为 二 维 数组 或 多 维 数组 。 声 明 多 维 数 组 时 用 逗号 分 隔 括 
号 中 每 个 下 标 ， 如 下 面 的 代码 就 声明 了 一 个 5 行 8 列 的 二 维 数组 : 
Dim intCounters(4.7) 
如 果 事先 不 知道 数组 的 大 小 ， 可 声明 一 个 动态 数组 。 动 态 数组 可 以 在 运行 脚本 时 根据 
实际 的 需要 ， 使 用 ReDim 来 调整 数组 的 维 数 和 每 一 维 的 大 小 。 例 如 : 
Dim curRevenue () 


ReDim curRevenue (25) 


ReDim curRevenue (9.11) 


注意 : 

重新 调整 动态 数组 大 小 的 次 数 是 没有 任何 限制 的 ， 但是， 存储 在 数组 中 的 当前 值 都 会 全 
MEK, VBScript 重新 将 数组 元 素 的 值 全 部 置 为 空 。 如果 希 望 改 变数 组 大 小 的 同时 而 又 不 丢失 
数组 中 的 数据 ， 则 要 在 ReDim 语句 中 带 上 Preserve 关键 字 ， 如 <% ReDim Preserve curRevenue 
(9.11) %>。 但 仍 要 注意 的 是 ， 将 数组 的 大 小 调 小 时 ， 仍 将 会 丢失 被 删除 元 素 的 数据 。 


3.3 VBScript 常用 语句 


默认 情况 下 ， 脚 本 中 的 代码 总 是 按 书 写 的 先后 顺序 来 执行 的 。 但 在 实际 应 用 中 ， 通 常 
要 根据 条 件 的 成 立 与 否 来 改变 代码 的 执行 顺序 ， 这 时 就 要 使 用 控制 结构 。 

f£ VBScript 中 ,控制 结构 有 判定 结构 和 循环 结构 两 种 。 判 定 结构 主要 是 根据 判断 的 结 
果 来 决定 执行 哪 部 分 代码 ， 它 又 分 为 条 件 结构 和 选择 结构 两 种 。 


3.3.1 条 件 语句 


条 件 语 句 用 于 判断 条 件 是 True 还 是 False， 并 且 根 据 判断 结果 来 指定 要 运行 的 语句 ( 语 


第 3 X VBScript 语言 基础 os 


句 既 可 为 单条 语句 ， 也 可 以 是 由 多 条 语句 组 成 的 复合 语句 )。 条 件 语 句 有 以 下 几 种 形式 。 


形式 1: 

If 条 件 表达 式 Then 语句 End If 

如 果 条 件 表 达 式 的 值 为 True， 则 执行 Then 后 的 语句 ， 否 则 跳出 该 条 件 语句 。 

形式 2: 

If 条 件 表达 式 Then 语句 1 Else 语句 2 EndIf 

如 果 条 件 表达 式 的 值 为 True, 则 执行 Then 后 的 语句 1, 否则 转 去 执行 Else 后 的 语句 2. 
形式 3: 


If. 条 件 表达 式 1Then 
语句 1 

Elself 条 件 表达 式 2 Then 
语句 2 


语句 n+l 
End If 


如 果 条 件 表 达 式 1 的 值 为 True， 则 执行 语句 1， 然 后 跳出 下 语句 ， 如 果 条 件 表 达 式 2 
的 值 为 True， 则 执行 语句 2， 然 后 跳出 下 语句 …… 若 所 有 条 件 表 达 式 的 值 都 不 为 True， 执 


行 语句 n+1。 


【练习 3-2】 利 用 条 件 语句 ， 创 建 一 个 成 绩 判断 程序 ， 运 行 效果 如 图 3-3 所 示 。 
(1) 创建 一 个 名 为 program.html 的 网 页 ， 其 代码 如 下 所 示 : 


<Html><Body> 
<Script Language="VBScript" > "指定 下 面 语句 所 采用 的 脚本 语言 为 VBScript 
Dim intGrade "定义 一 个 存放 分 数 的 变量 intGrade 


intGrade = InputBox(" 请 输入 分 数 ") 
' 弹 出 请 求 输入 分 数 的 对 话 框 ， 并 将 输入 分 数 赋值 给 intGrade 
If intGrade>100 Or intGrade<0 Then 
Msgbox(" 输 入 成 绩 有 误 ") 
' 对 输入 的 分 数 进行 判断 ， 如 果 大 于 100 或 小 于 0， 则 弹出 信息 框 提示 “输入 成 绩 有 误 ” 
Elself intGrade>=85 Then 
Msgbox(" 成 绩优 秀 ， 还 要 继续 努力 加 油 !") 
"如 分 数 大 于 85， 则 弹出 信息 框 提示 “成 绩优 秀 ， 还 要 继续 努力 加 油 ! ” 
Elself intGrade>=60 Then 
Msgbox(" 成 绩 及 格 ") 
' 如 分 数 大 于 60， 则 弹出 信息 框 提示 “成 绩 及 格 ” 
Else 
Msgbox(" 不 及 格 ") 
' 否 则 ， 弹 出 信息 框 提示 “不 及 格 ” 


区 ASP 动态 网 站 开发 教程 (第 三 版 ) 


EndIf 
</Script> 
</Body></Html> 


(2) 运 行 program.html 网 页 文档 ， 效 果 如 图 3-3 所 示 。 


MF, -| 


输入 小 于 60 的 数字 显示 成 绩 不 及 格 
图 3-3 program.html 的 运行 效果 


3.82 选择 语句 


选择 语句 Select Case 是 于 语 句 多 条 件 时 的 另外 一 种 表示 方法 , 可 在 多 个 执行 语句 中 有 
选择 地 执行 其 中 的 一 个 。 它 的 优点 是 程序 更 简洁 易 读 ， 语 法 结构 如 下 : 


Select Case 表达 式 
Case 结果 1 

语句 1 

Case 结果 2 

语句 2 


Case 结果 1n 
语句 n 
Case Else 
语句 n+1 
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End Select 


VBScript 首先 对 表达 式 进 行 运算 ， 这 个 运算 可 以 为 数值 运算 或 字符 串 运算 ， 然 后 将 运 
算 结果 依次 与 结果 1 到 结果 n 作 比 较 ， 当 找到 与 计算 结果 相等 的 结果 时 就 执行 该 语句 ， 执 
行 完 毕 后 就 跳出 Select Case 语句。 而 当 运算 结果 与 所 有 的 结果 都 不 相等 时 , 就 执行 Case Else 
后 面 的 执行 语句 n+1。 


【练习 3-3】 利 用 选择 语句 ， 创 建 一 个 可 以 根据 用 户 的 选择 设置 页 面 背景 颜色 的 程序 ， 
运行 效果 如 图 3-4 所 示 。 
(1) 创建 一 个 名 为 program2.html 的 网 页 ， 其 代码 如 下 所 示 : 


<Html><Body> 
<Script Language="VBScript" > ' 指 定 下 面 语句 所 采用 的 脚本 语言 为 VBScript 
Dim strColor "定义 一 个 存放 颜色 的 变量 strColor 


strColor=inputbox(" 请 从 red. green, blue 中 选择 一 个 ， 并 输入 作为 页 面 背景 色 !") 

Select Case strColor 
Case"red" ”document.bgColor = "red" ' 如 果 strColor 值 为 red, 设置 页 面 背景 为 红色 
Case "green" document.bgColor = "green"' 如 果 strColor 值 为 green, 设置 页 面 背景 为 绿色 
Case"blue" ^ document.bgColor = "blue" ' 如 果 strColor 值 为 blue, 设置 页 面 背 景 为 蓝 色 
Case Else MsgBox "输入 有 误 ”“' 如 果 不 是 上 面 3 种 颜色 ， 则 提示 “输入 有 误 ” 

End Select 

</Script> 

</Body></Html> 


(2) 运 行 program2.html a z Sek 效果 如 图 3- 4 所 


LII 
DESEE INA TUR KNEE 
mico w Qaa- $ Hic 
+- Aas- (ines - 


kÈ Domena atse a-a 山上 mmD 


输入 red 背景 色 变 成 红色 
图 3-4 program2.html 的 运行 效果 


3.3.3 ”循环 语句 


循环 结构 允许 重复 执行 一 行 或 数 行 代码 。 在 VBScript 中 ,提供 了 3 种 不 同 风格 的 循环 
语句 ， 即 Do 循环 、For 循环 和 For Each 循环 。 
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1. Do 循环 

Do...Loop 循环 是 一 种 条 件 型 的 循环 ， 当 条 件 为 True 时 或 条 件 变 为 True 之 前 ， 
行 语句 块 ， 该 循环 共有 3 种 形式 。 

形式 1: 


Do While 条 件 表达 式 
语句 


加 
E 


Loop 
VBScript 首先 检查 条 件 表达 式 的 值 是 否 为 Tue, WRA True 才 会 进入 循环 执行 语句 。 
另外 ， 也 可 以 对 语句 顺序 进行 调整 ， 使 它 先 进入 循环 执行 一 次 后 再 对 条 件 进 行 判 断 。 
形式 2: 
Do 
语句 
Loop While 条 件 表达 式 
如 果 把 Do 循环 中 的 While 换 为 Until， 则 程序 的 运行 过 程 和 前 面 类 似 。 不 同 的 是 ， 只 
要 条 件 为 False 就 执行 循环 。 
形式 3: 
Do 
语句 


Loop Until 条 件 表达 式 


注意 : 
Do 循环 语句 中 可 以 使 用 Exit Do 语句 强行 中 止 循环 。 


【练习 3-4】 利 用 Do 循环 语句 ,创建 一 个 可 以 显示 循环 语句 的 执行 过 程 的 程序 ， 运行 
效果 如 图 3-5 所 示 。 
(1) 创建 一 个 名 为 program3.asp 的 网 页 ， 其 代码 如 下 (如 图 3-6 所 示 ): 
<% 
intNum=1 
Do While intNum<7 
Response. Write "循环 语句 正在 执行 第 "&intNum&" 次 循环 " 
Response. Write "<br>" ' 在 屏幕 上 输出 一 个 回 车 
intNum=intNum+1 
Loop 
9o 


(2) 将 program3.asp 文件 保存 至 CAInetpubwwwroot 3X fF X P. 
(3) ÈZ) IE 浏览 器 后 ， 在 地 址 栏 中 输入 http//localhost/program3.asp. 4& Enter &£, 3k 
果 如 图 3-5 所 示 。 
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图 3-5 program3.asp 的 运行 效果 图 3-6 program3.asp 的 代码 


2. For 循环 


For...Next 循环 是 一 种 强制 性 的 循环 , 用 于 将 循环 体 运 行 指定 的 次 数 。 在 For 循环 中 有 
一 个 计数 器 变量 ， 每 重复 一 次 循环 ， 该 变量 的 值 都 会 增加 或 减少 ， 其 语法 结构 如 下 : 
For 循环 变量 = 初始 值 To 结束 值 [Step 步 长 值 ] 
执行 语句 
Next 
For...Next 循环 语句 的 执行 步骤 如 下 : 
(1) 将 循环 变量 设 为 初始 值 。 
(2) 测试 循环 变量 是 否 大 于 结束 值 ， 若 是 ， 则 退出 循环 ( 若 步 长 值 为 负 ， 则 测试 循环 变 
量 是 否 小 于 结束 值 )， 和 否则 执行 循环 中 的 语句 。 
(3) 执行 语句 运行 完毕 到 Next 语句 时 ，VBScript 将 循环 变量 值 与 步 长 值 相 加 。 
(4) 从 Next 语句 跳 转 到 For 语句 继续 执行 。 


注意 : 
如 果 省 略 Step 子 句 ， 那 么 步 长 的 默认 值 是 1。 


【练习 3-5】 利 用 For 循环 语句 ， 创 建 一 个 可 以 求 出 并 显示 1-100 的 奇数 和 的 网 页 程 
序 ， 运 行 效果 如 图 3-7 所 示 。 
(1) 创建 一 个 名 为 program4.asp 的 网 页 ， 其 代码 如 下 (如 图 3-8 所 示 ): 
<% 
Dim intNum,i,intSum 
intNum-1 
intSum-0 
For I=1 To 100 Step 2 
Response. Write "循环 语句 正在 执行 第 "&intNum&" 遍 循环 "&"<br>" 
Response. Write "第 "&intNum&" 个 欲 相 加 的 工 值 为 "&i&"<br>" 
Response. Write "SUM="&intSum&"+"&i&"="&intSumti&"<br>" 


intSum=intSum+i 
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intNum-intNum-*1 
Next 
%> 
(2) 将 program4.asp 文件 保存 至 Ci:\Inetpub\Wwwwroot 文件 夹 中 。 
(3) 启动 于 浏览 器 后 ， 在 地 址 栏 中 输入 http://localhost/program4.asp 并 按 Enter 键 ， 效 
果 如 图 3-6 所 示 。 


图 3-8 program4.html 的 代码 


3. For Each 循环 


For Each...In 循环 只 针对 数组 或 对 象 集合 中 每 一 个 元 素 的 遍历 循环 。 执 行 循环 的 次 数 
不 再 需要 指定 ， 只 要 有 一 个 元 素 就 循环 一 次 ， 其 语法 结构 如 下 : 
For Each 元 素 In 集合 
语句 
Next 
如 果 不 知道 集合 中 有 多 少 个 元 素 ， 则 用 For Each 循环 非常 方便 。 如 下 例 可 列举 使 用 
HMTL 表单 提交 的 所 有 数值 : 
<% 
For Each item In Request.Form 
Response.Write Request.Form(item) 


Next 
%> 


注意 : 


For 循环 语句 中 可 以 使 用 Exit For 语句 强行 中 止 循环 .。 


34 ”过程 与 函数 


过 程 是 用 来 执行 特定 任务 的 独立 的 程序 代码 。 使 用 过 程 ， 可 以 将 程序 划分 成 一 个 个 较 
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小 的 逻辑 单元 ， 过 程 中 的 代码 能 够 被 反复 调用 ， 这 样 可 以 减少 不 必要 的 重复 。 可 以 将 过 程 
定义 放 在 调用 该 过 程 的 同一 个 ASP 文件 中 , 也 可 以 将 常用 过 程 放 在 共享 的 文件 中 ,并 使 用 
Zinclude 命令 将 该 文件 包含 在 调用 过 程 的 ASP 文件 中 。 

VBScript 根据 是 否 返 回 值 将 过 程 划分 为 Sub 过 程 ( 子 过 程 ) 和 Function 过 程 (函数 ) 两 种 。 
Sub 过 程 只 执行 程序 而 不 返回 值 ， 因 而 不 能 用 于 表达 式 中 ， 而 Function 函数 可 以 将 执行 代 
码 后 的 结果 返回 给 请 求 程序 。 


3.4.1 Sub 过 程 


Sub 过 程 是 一 种 可 以 获取 参数 , 执行 一 系列 语句 以 及 可 改变 其 参数 值 的 独立 过 程 。Sub 
过 程 可 以 使 用 参数 (由 调用 过 程 传递 的 常数 、 变 量 或 表达 式 )， 参 数 在 调用 过 程 和 被 调用 过 
程 之 间 传 递 信 息 。 如 果 Sub 过 程 无 任何 参数 ， 则 Sub 语句 必须 包含 空 括号 0。 其 语法 结构 
如 下 : 
Sub 子 程序 名 (参数 1, 参 数 2,…) 


End Sub 


定义 一 个 Sub 过 程 后 ， 就 可 以 在 程序 代码 中 调用 它 。Sub 过 程 的 调用 有 两 种 方式 。 一 
种 是 使 用 Call 语句 ， 它 要 求 将 所 有 参数 包含 在 括号 之 中 ， 其 语法 结构 如 下 : 
Call 子 程序 名 (参数 1, 参 数 2…) 
另 一 种 是 直接 使 用 子 过 程 名 ， 只 需 输 入 过 程 名 及 所 有 参数 值 ， 参 数值 之 间 使 用 逗号 分 
隔 。 其 语法 结构 如 下 : 
子 过程 名 参数 1, 参 数 2.… 
注意 : 
使 用 Exit Sub 语句 可 以 立即 从 Sub 过 程 中 退出 ， 程 序 继续 执行 调用 Sub 过 程 之 后 
的 语句 ， 在 Sub 过 程 的 任意 位 置 可 以 出 现任 意 个 Exit Sub 语句 。 


【练习 3-6】 建 立 一 个 可 将 参数 在 弹出 式 信息 对 话 框 中 显示 的 Sub 过 程 ， 并 在 程序 中 
多 次 调用 它 ， 程 序 运行 效果 如 图 3-9 所 示 。 
(1) 创建 一 个 名 为 brogram5.html 的 网 页 ， 其 代码 如 下 所 示 : 


«Script Language="VBScript" > 
Call output(" 第 一 次 调用 过 程 ") 
output. "再 试 一 次 调用 过 程 " 


Sub output(strText) 
MsgBox strText 

End Sub 

</Script> 
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(2) 运行 program5.html 网 页 文档 ， 效 果 如 图 3-9 所 示 


JO [Ec memas oe xi[ 


图 3-9 programs.html 的 运行 效果 


注意 : 

在 Sub 过 程 中 使 用 的 变量 分 为 两 类 ， 一 类 是 在 过 程 内 显 式 声 明 的 ， 另 一 类 则 不 是 。 
在 过 程 内 显 式 声明 的 变量 (使 用 Dim 或 等 效 方法 ) 是 局 部 变量 , 对 于 那些 没有 在 过 程 中 显 式 
声明 的 变量 也 是 局 部 变量 ， 除 非 在 该 过 程 外 更 高 级 别 的 位 置 显 式 地 声明 它们 。 


3.4.2 Function 函数 


函数 和 子 过 程 一 样 ， 也 是 用 来 完成 特定 功能 的 独立 的 程序 代码 ， 可 以 读 取 参 数 、 执 行 
一 系列 语句 并 改变 参数 的 值 。 但 函数 有 一 个 最 重要 的 特点 ， 就 是 调用 时 将 返回 一 个 值 。 函 
数 的 语法 结构 如 下 : 
Function 函数 名 (参数 1, 参 数 2.…) 
[语句 ] 


函数 名 = 表达 式 
[语句 ] 
End Function 


与 Sub 过 程 类 似 ， 其 中 “参数 1, 参 数 2…” 是 调用 时 传递 的 常数 、 变 量 或 表达 式 ， 如 
果 无 任何 参数 ， 则 Function 语句 必须 使 用 空 括号 。 与 Sub 过 程 不 同 的 是 ，Function 函数 通 
过 函数 名 返回 一 个 值 ， 这 个 值 是 在 函数 体 中 赋 给 函数 名 的 ，Function 返回 值 的 数据 类 型 是 
Variant。 

“函数 名 = 表达 式 ” 用 于 为 函数 设置 返回 值 ， 该 值 将 返回 给 调用 的 语句 ， 函 数 中 至 少 
要 含有 一 条 这 样 的 语句 。 

Function 函数 只 有 通过 直接 引用 函数 名 实现 函数 的 调用 ， 而 且 函 数 名 必须 用 在 变量 赋 
值 语句 的 右 端 或 表达 式 中 。 调 用 函数 时 ， 参 数 要 放 在 一 对 括号 中 ， 这 样 就 可 以 将 它们 和 表 
达 式 的 其 他 部 分 分 开 。 例 如 : 
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temp = Celsius(60) 


注意 : 

使 用 Exit Function 语句 可 以 从 Function 过 程 中 立即 退出 ， 程 序 继续 执行 调用 
Function 过 程 之 后 的 语句 ， 但 执行 前 必须 为 函数 赋值 ， 否 则 就 会 出 错 。 在 Function 过 程 
的 任意 位 置 可 以 出 现任 意 个 Exit Function 语句 。 


【练习 3-71 创建 一 个 函数 , 将 华氏 温度 换算 为 摄氏 温度 , 程序 运行 效果 如 图 3-10 所 示 。 
(1) 创建 一 个 名 为 program6.html 的 网 页 ， 其 代码 如 下 所 示 : 


<Script Language="VBScript" > 
temp = InputBox(" 请 输入 华氏 温度 。", 1) 
MsgBox "温度 为 " & Celsius(temp) & " 摄氏 度 。" 
Function Celsius(fDegrees) 
Celsius = (fDegrees - 32) * 5/9 
End Function 
«JScript? 
(2) 运行 program6.html 网 页 ， 效 果 如 图 3-10 所 示 。 


mu 


图 3-10 program6.html 的 运行 效果 


3.4.8 ” 按 地 址 传递 和 按 值 传递 


默认 情况 下 ， 参 数 按 地 址 传递 ， 即 过 程 按 变量 的 内 存 地 址 去 访问 实际 变量 的 内 容 。 这 
样 将 变量 传递 给 过 程 时 ， 通 过 过 程 就 可 以 改变 变量 的 值 。 地 址 传递 的 关键 字 为 ByRef。 

另外 ， 传 递 参数 还 可 以 按 数值 来 传递 。 按 值 传递 参数 时 ， 传 递 的 只 是 变量 的 副本 。 如 
果 过 程 中 改变 了 这 个 值 ， 则 所 作 的 变动 只 影响 副本 而 不 会 影响 到 变量 本 身 。 按 值 传递 的 关 
键 字 是 ByVal。 


【练习 3-8】 建 立 两 个 分 别 按 地 址 传递 和 按 值 传递 的 过 程 ， 比 较 其 异同 ， 程 序 运行 的 
结果 如 图 3-11 所 示 。 
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(1) 创建 一 个 名 为 program7.asp 的 网 页 ， 其 代码 如 下 所 示 ( 如 图 3-12 所 示 ): 


<% 

Sub TestByVal(ByVal X) 

X=X*33 

End Sub 

Sub TestByRef(ByRef X) 

X=X/10 

End Sub 

intNum=60 

Response. Write " 原 测试 数值 为 "&intNum&"<br>"&"<br>" 
Call TestByVal(intNum) 


Response.Write "使 用 ByVal 关键 字 ， 参 数 按 值 传递 调用 过 程 后 ，_ 测 试 变 量 的 值 为 
"&intNum& "<br>" &"<br>" 
Call TestByRef(intNum) 
Response.Write "使 用 ByRef 关键 字 ， 参 数 按 地 址 传递 调用 过 程 后 ，_ 测 试 变量 的 值 为 "&intNum 
%> 


(2) 将 program7.asp 文件 保存 至 C:\Inetpub\wwwroot 文件 夹 中 。 
(3) 启动 耻 浏 览 器 后 ， 在 地 址 栏 中 输入 http://localhost/program7.asp 并 按 Enter 键 ， 效 
果 如 图 3-12 所 示 。 


CR mr 


LU EDI 
使 用 BYYal 共 键 字 ， 关 数控 傅 伟 过 调用 过 得 后 ，_ 出 试 变量 的 值 为 60 
MulpyReteh, tesi GURpSHES, AME EE 
SARAPANE, MILIA Nro" 


T 


图 3-11 program7.asp 的 运行 效果 图 3-12 program7.asp 的 代码 


从 上 例 的 运行 效果 可 看 出 ， 按 值 传递 后 ， 变 量 intVar 的 值 保 持 不 变 ， 仍 为 60， 而 按 地 
址 传递 后 ， 值 将 变 为 6。 


344 ”数组 参数 


数组 作为 参数 传递 时 ， 与 普通 参数 有 些 不 同 。 在 过 程 中 声明 数组 参数 时 ， 必 须 略 去 数 
组 的 长 度 ， 即 设置 一 个 动态 数组 。 在 调用 语句 中 ， 只 需 给 出 要 传递 的 数组 名 即 可 ， 不 必 包 
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括 数组 的 下 标 及 圆 括号 。 
【练习 3-9】 用 产生 随机 数 的 方法 给 一 个 数组 赋值 ， 并 调用 过 程 来 将 其 中 的 元 素 按 从 
小 到 大 的 顺序 排序 ， 程 序 运行 效果 如 图 3-13 所 示 。 
(1) 创建 一 个 名 为 program8.asp 的 网 页 ， 其 代码 如 下 所 示 ( 如 图 3-14 所 示 ): 


<% 
Sub Sort (arr().arrnum) 
Dim LJ.intTemp 
For I=0 to arrnum 
For J=0 to arrnum 
If arr(I)»arr(7) Then 
intTemp-arr(T) 
arr(I)-ari(J) 
arr(7)-intTemp 
End If 
Next 
Next 
End Sub 
Dim arrTest(9).I 
ForI-0 to 9 
arrTest(I)-Int(Rnd()*100--1) 
Next 
Sort arrTest.9 
ForI-0 To 9 
Response.Write arrTest(I)&"-br»" 
Next 
%> 


(2) 将 program8.asp 文件 保存 至 Ci\InetpubWwwwroot 文件 夹 中 。 


(3) 启动 IE 浏览 器 后 ， 在 地 址 栏 中 输入 http://localhost/program8.asp 并 按 Enter 键 ， 效 
果 如 图 3-13 所 示 。 


图 3-13 程序 运行 效果 图 3-14 输入 代码 
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3.5 VBScript 函数 


VBScript 把 一 些 最 常 使 用 的 功能 整理 起 来 ， 编 制 好 了 相应 的 处 理 程序 ， 将 它们 以 函数 
的 形式 提供 使 用 。 恰 当 的 使 用 函数 可 以 节省 大 量 的 时 间 ， 如 表 3-4 所 示 对 VBScript 提供 的 


函数 做 了 概括 。 
3X 3-4 VBScript 函数 概括 

go 说 了 明 
Abs 返回 一 个 数 的 绝对 值 ， 如 Abs( - D 和 Abs(1) 都 返回 1 
Array 返回 一 个 Variant 值 ， 其 中 包含 一 个 数组 
Asc 返回 与 字符 串 的 第 一 个 字母 相关 的 ANS 字符 编码 ， 如 Asc("Body") 返 回 66 
Atn 返回 一 个 数 的 反正 切 值 。 如 4*Atn(1) 得 到 x 的 值 3.141 592 653 589 79 
计算 表达 式 的 布尔 值 。 如 果 表 达 式 的 值 为 0， 则 返回 False， 和 否则 返回 True, 

如 CBool(9) 返 回 Tme 

Cbyte 将 表达 式 转换 为 Byte 子 类 型 ， 如 CByte(45.678 9) 返 回 46 
Ccur 将 表达 式 转换 为 Currency 子 类 型 ， 如 CCur(123.456 789) 返 回 123.456 8 
Cdate 将 表达 式 转 换 为 Date 子 类 型 ， 如 Cdate("July 21,2004") 返 回 2004-7-21 


CDbl 将 表达 式 转换 为 Double 子 类 型 

Chr 返回 与 指定 的 ASCII 字符 代码 相对 应 的 字符 ， 如 Chr(66) 返 回 B 
Cint 将 表达 式 转换 为 Integer 子 类 型 ， 如 CInt(456.78) 返 回 457 

CLng 将 表达 式 转换 为 Long 子 类 型 ， 如 CLng(123 456.78)i |E] 123 457 
Cos 返回 某 个 角 的 余弦 值 


CreateObject 


创建 并 返回 对 象 实例 。 注 意 ， 在 ASP 中 不 要 用 该 函数 来 创 对 象 实例 


CSng 将 表达 式 转换 为 Single 子 类 型 
CStr 将 表达 式 转换 为 String 子 类 型 ， 如 str=CStr(87.65)， 则 str 值 为 字符 串 87.65 
Date 返回 当前 系统 日 期 
返回 已 添加 指定 时 间 间 隔 的 日 期 , 如 DateAdd("m".2."21-July-2004") 将 2004 年 
7 月 21 日 加 两 个 月 ， 得 到 2004-9-21 
DateDiff 返回 两 个 日 期 间 的 时 间 间 隔 ， 如 DateDiff"d"."21-7-2004"."23-7-2004") 将 返回 2 
DatePart 返回 给 定 日 期 的 指定 部 分 ， 如 DatePart("yyyy","21-July-2004") 返 回 2004 
使 用 指定 的 年 、 月 、 日 返回 Date 子 类 型 ， 如 DateSerial(1996-10.8-2.1- 1) 
DateSerial 同和 
DateValue 返回 Date 子 类 型 ， 如 DateValue("September 11.1963") 将 返回 1963-9-11 
Day 返回 1-31 之 间 的 一 个 整数 ,表示 某 月 中 的 一 天 ， 如 Day("July 21,2004") 将 返回 21 
Eval 计算 一 个 表达 式 的 值 并 返回 结果 
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( 续 表 ) 
mo 5m 说 了 明 
Exp 返回 e( 自 然 对 数 的 底 ) 的 宕 次 方 
Filter 返回 下 标 从 0 开始 的 数组 ， 包 含 基于 特定 过 滤 条 件 的 字符 串 数组 的 子 集 
返回 数字 的 整数 部 分 ，Int 和 Fix 的 区 别 在 于 : 如 果 参 数 为 负数 ， 则 Int 返回 小 
Int、Fix 于 或 等 于 参数 的 第 一 个 负 整数 ， 而 Fix 返回 大 于 或 等 于 参数 的 第 一 个 负 整数 。 


例如 ，Int( - 6.4) 将 返回 - 7， 而 Fix( - 6.4) 将 返回 - 6 
一 个 表达 式 ， 该 表达 式 被 格式 化 为 货币 值 (使 用 系统 控制 面板 中 定义 的 货 
FormatCurrency 币 符号 )。 例 如 ， 当 系统 控制 面板 中 定义 的 货币 符号 是 人 民 币 符号 时 ， 
FormatCurrency(2000) 将 返回 竺 2000.00 
格式 化 日 期 和 时 间 。 例 如 ，FormatDateTime(Now.0) 返 回 值 为 2004-7-15 


ee 11:25:45， 而 FormatDateTime(Now,1) 返 回 值 为 2004 年 7 月 15 H 
格式 化 一 个 数值 。 例如， FormatNumber(1233.4567.2) 返 回 值 为 带 两 位 小 数 点 的 
FormatNumber 数 1233.46，FormatNumber( - 0.1234.3,-1) 返 回 值 为 - 0.123( 含 小 数 点 前 的 0)， 
而 FormatNumber( - 0.1234.3.0) 返 回 值 为 -.123( 不 含 小 数 点 前 的 0) 
FormatPercent 格式 化 为 以 % 符 号 结尾 的 百分比 ， 如 FormatPercent(2/32) 返 回 6.25% 
访问 文件 中 的 自动 化 对 象 ， 并 将 该 对 象 赋 给 对 象 变量 。 注 意 ， 在 ASP 中 不 要 
GetObject 
用 该 函数 来 创建 对 象 实 例 
Hex 返 十 六 进 制 数字 值 的 字符 串 ， 如 Hex(459) 返 回 ICB 
Hour 返回 0-23 之 间 的 一 个 整数 ， 表 示 一 天 中 的 某 一 小 时 
InpuBox 显示 一 个 文本 框 ， 提 示 用 户 输入 一 个 数据 
InStr 返回 某 字符 串 在 另 一 字符 串 中 第 一 次 出 现 的 位 置 
InStrRev 返回 某 字符 串 在 另 一 个 字符 串 中 出 现 的 从 结尾 算 起 的 位 置 
IsArray 返回 布尔 值 ， 确 定 一 个 变量 是 否 为 数组 
IsDate 返回 布尔 值 ， 确 定 表 达 式 是 否 可 以 转换 为 日 期 
IsEmpty 返回 布尔 值 ， 确 定 一 个 变量 是 否 为 空 
IsNull 返回 布尔 值 ， 确 定 一 个 表达 式 是 否 包含 无 效 的 数据 
IsNumeric 返回 布尔 值 ， 确 定 一 个 表达 式 是 否 为 数字 
IsObject 返回 布尔 值 ， 确 定 一 个 表达 式 是 否 引用 了 有 效 的 对 象 
Join 将 数组 中 的 多 个 子 字符 串 合 成 一 个 字符 串 
LBound 返回 数组 某 一 维 的 下 界 
LCase 返回 字符 串 的 小 写 形式 
Left 返回 指定 数目 的 从 字符 串 的 左边 算 起 的 字符 
Len 返回 字符 串 内 字符 的 数目 
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( 续 表 ) 
Ef E 说 BB 
返回 图 片 对 象 -LoadPicture 识别 的 图 形 格式 有 位 图 文件 (.bmp)、 图 标 文件 (.ico)、 
LoadPicture 行程 编码 文件 (.rle)、 图 元 文件 (-wmf、 增 强 型 图 元 文件 (.emf)、GIF 文件 (.gif) 
和 JPEG 文件 (jpg) 
Log 返回 数值 的 自然 对 数 


Ltrim, Rtrim 和 


截 去 字符 串 中 的 前 导 空格 (Ltrim)、 后 续 空 格 (Rtrim) 或 前 导 与 后 续 空格 (Trim) 


Trim 
Mid 从 字符 串 中 返回 指定 数目 的 字符 
Minute 返回 0-59 之 间 的 一 个 整数 ， 表 示 一 小 时 内 的 某 一 分 钟 
Month 返回 1~12 之 间 的 一 个 整数 ， 表 示 一 年 中 的 某 月 
MonthName 返回 代表 指定 月 份 的 字符 串 
MsgBox 显示 一 个 信息 对 话 框 
Now 根据 计算 机 系统 设 定 的 日 期 和 时 间 返 回 当前 的 日 期 和 时 间 值 
Oct 返回 表示 八进制 数值 的 字符 串 ， 如 Oct(8) 返 回 10 
Replace 将 字符 串 内 的 子 字符 串 蔡 换 为 指定 的 串 


RGB 返回 代表 RGB 颜色 值 的 整数 

Right 从 字符 串 右边 返回 指定 数目 的 字符 

Rnd 返回 一 个 随机 数 

Round 返回 按 指 定位 数 进行 四 舍 五 入 的 数值 ， 如 Round(3.141 59,2) 返 回 3.14 
ScriptEngine 返回 一 个 代表 当前 使 用 的 脚本 程序 语言 的 字符 串 


Second 返回 0-59 之 间 的 一 个 整数 ， 表 示 一 分 钟 内 的 某 一 秒 

Sen 返回 表示 数字 符号 的 整数 ， 如 Sgn(2) 返 回 1，Sgn(0) 返 回 0， Sgn(- 3) 返 回 -1 
Sin 返回 一 个 角度 的 正弦 值 

Space 返回 由 指定 数目 的 空格 组 成 的 字符 串 

Split 返回 基于 o 的 一 维 数组 ， 其 中 包含 指定 数目 的 子 字符 串 


Sqr 返回 数值 的 平方 根 

StrComp 比较 两 个 字符 串 ， 并 返回 比较 结果 

String 返回 指定 长 度 的 、 重 复 字 符 组 成 的 字符 串 ， 如 String(3. "B") 返 回 BBB 
StrReverse 将 字符 串 按 反 序 排 列 输出 

Tan 返回 一 个 角度 的 正切 值 

Time 返回 目前 系统 的 时 间 

Timer 返回 午夜 12 时 以 后 已 经 过 去 的 秒 数 

TimeSerial 返回 含 指定 时 、 分 、 秒 的 时 间 ， 如 TimeSerial(12 - 6. - 15.0) 返 回 5:45:00AM 
TimeValue 返回 包含 时 间 的 Data 子 类 型 


返 
返 


TypeName 回 一 个 变量 的 子 类 型 信息 
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GE) 
函 数 说 RR 
UBound | 返回 数组 某 一 维 的 上 界 
返回 字符 串 的 大 写 形 式 


返回 表示 变量 子 类 型 的 整数 
返回 表示 一 星期 中 某 天 的 整数 
WeekdayName 返回 一 个 字符 串 ， 表 示 一 星期 中 指定 的 某 一 天 


Year 返回 一 个 代表 某 年 的 整数 


36 3J 题 


(1) Æ ASP 文件 中 直接 声明 主要 脚本 语言 为 VBScript 的 语句 为 

(2) VBScript 只 有 一 种 数据 类 型 ， 即 类 型 ， 也 叫做 变 体 类 型 。 

(3) VBScript 包括 4 种 类 型 的 运算 符 ， 即 算术 运算 符 、 fg 
辑 运 算 符 。 

() 一 经 声明 ， 在 程序 执行 期 间 ， 其 值 不 会 发 生 改 变 。 

(5) VBScript 中 声明 多 个 变量 时 ， 使 用 分 隔 变量 。 

(6) 数组 中 的 每 个 元 素 都 用 唯一 的 来 识别 。 


3.6.2 ”选择 题 


(1) FXF VBScript 的 标准 命名 规则 的 说 法 不 正确 的 是 ( )o 
A. 第 一 个 字符 必须 是 字母 或 数字 
B. 长 度 不 能 超过 255 个 字符 
C. 名 字 不 能 和 关键 字 同 名 
D. 在 声明 的 作用 域内 必须 唯一 
(2) 使 用 (  ) 语 句 可 以 立即 从 Sub 过 程 中 退出 , 程序 继续 执行 调用 Sub 过 程 之 后 的 
语句 。 
A. Exit Sub B. Exit C. </sub> D. Loop 
(3) 下 面 不 属于 变量 子 类 型 的 有 ( —). 
A. Empty 表示 数据 未 被 初始 化 
B. Integer 表示 - 32, 768-32. 767 之 间 的 整数 
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C. Single 表示 单 精 度 浮 点 数 ， 而 Double 表示 双 精 度 浮 点 数 
D. String 表示 字符 串 数值 ， 字 符 串 的 最 大 长 度 可 为 200 个 字符 
3.6.3 ”问答 题 
(1) 在 编写 ASP 代码 时 ， 如 何 声明 所 使 用 的 脚本 语言 种 类 。 


Q) 简 述 运算 符 的 优先 顺序 。 
(3) 简 述 什么 是 变量 的 作用 域 。 


3.604 操作 题 


(1) 参照 本 章 练习 ， 编 写 一 段 VBScript 程序 计算 表达 式 1122737423? 的 值 。 
(2) 编写 一 段 VBScript 程序 ， 实 现 以 下 功能 。 弹 出 对 话 框 请 求 输入 n 值 和 nm 值 ， 然 后 
弹出 信息 框 显示 (n-])!+(m+1)W(ntm)! 表 达 式 的 计算 结果 。 


第 4 章 ” Response 和 Request 对 象 


E ASP 中 , 与 客户 端的 动态 交互 是 通过 Response 和 Request 对 象 实现 的 , 这 两 个 对 象 
起 到 了 服务 器 与 客户 机 之 间 的 信息 传播 作用 , 其 中 Response 对 象 用 于 接收 客户 端 浏 览 器 提 
交 的 数据 ， 而 Request 对 象 的 功能 则 是 将 服务 端的 数据 发 送 到 客户 端 浏览 器 。 
通过 本 章 的 理论 学 习 和 练习 ， 用 户 应 了 解 和 掌握 以 下 内 容 : 
了 解 从 浏览 器 取得 数据 的 方法 
T fl Request.QueryString 集合 读 取 表 单 GET 方法 数据 
了 解 RequestForm 集合 读 取 表 单 POST 方法 数据 
掌握 网 页 重 定 位 的 实现 方法 
掌握 利用 缓冲 区 输出 数据 的 方法 


41 Request 对 象 


Request 对 象 是 ASP 最 常用 的 对 象 之 一 ， 其 作用 是 连接 客户 端的 Web 页 面 (HTML 页 
面 ) 和 服务 器 端的 Web 页 面 (ASP 页 面 )， 使 他 们 之 间 可 以 进行 数据 交换 。Request 对 象 允许 
ASP 查询 有 关 与 之 交互 的 客户 程序 信息 ， 代 表 由 客户 程序 发 出 的 HTTP 请 求 报 文 。 


4.1.1 Request 对 象 简介 


Request 对 象 可 以 用 于 访问 任何 用 HTTP 请 求 传递 的 信息 ,包括 从 HTML 表单 的 POST 
方法 或 GET 方法 传递 的 参数 、Cookie 和 用 户 认证 。 
1. Request 对 象 的 集合 
Request 对 象 提 供 了 5 个 集合 ， 可 以 用 来 访问 客户 端 对 Web 服务 器 请 求 的 各 类 信息 ， 
具体 说 明 如 表 4-1 所 示 。 
表 4-1 Request 对 象 的 集合 及 说 明 
集合 名 称 说 n 


当 客户 端 访问 一 个 页 面 或 其 他 资源 时 ， 用 来 向 服务 器 表明 身份 的 客户 证 
蔬 的 所 有 字段 或 条 目的 数值 集合 ， 每 个 成 员 均 是 只 读 


ClientCertificate 


根据 用 户 的 请 求 ， 用 户 系统 发 出 的 所 有 Cookie 值 的 集合 ， 这 些 Cookie 
仅 对 相应 的 域 有 效 ， 每 个 成 员 均 为 只 读 


Cookies 
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( 续 表 ) 
集合 名 称 说 HH 
METHOD 的 属性 值 为 POST 时 ， 所 有 作为 请 求 提交 的 <FORM> 段 中 的 
HTML 控件 单元 的 值 的 集合 ， 每 个 成 员 均 为 只 读 
依附 于 用 户 请 求 的 URL 后 面 的 名 称 / 数值 或 作为 请 求 提交 的 且 
QueryString METHOD 属性 值 为 GET( 或 者 省 略 其 属性 )， 或 <FORM> 中 所 有 HTML 
控件 单元 的 值 ， 每 个 成 员 均 为 只 读 
随同 客户 端 请 求 发 出 的 HTTP 报头 值 , 以 及 Web 服务 器 的 几 种 环境 变量 
的 值 的 集合 ， 每 个 成 员 均 为 只 读 


ServerVariables 


2. Request 对 象 的 属性 


如 表 4-2 所 示 为 Request 对 象 唯一 的 属性 及 说 明 ， 它 提供 关于 用 户 请 求 的 字 节 数量 的 
信息 ， 并 很 少 用 于 ASP 网 页 。 


表 4-2 Request 对 象 的 属性 及 说 明 


只 读 ， 返 回 由 客户 端 发 出 请 求 的 整个 字 节 数量 


TotalBytes 


3. Request 对 象 的 方法 


如 表 4-3 所 示 为 Request 对 象 唯一 的 方法 及 说 明 ， 它 允许 访问 从 一 个 <FORM> 段 中 传 
递 给 服务 器 的 用 户 请 求 部 分 的 完整 内 容 。 


表 4-3 — Request 对 象 的 方法 及 说 明 


5 法 说 m 
当 数 据 作 为 POST 请 求 的 一 部 分 发 往 服务 器 时 ,从 客户 请 求 中 获得 count 
字 节 的 数据 ， 返 回 一 个 Variant 数组 (或 SafeArray)。 如 果 ASP 代码 已 经 
BinaryRead(count) 


引用 了 Request.Form 集合 ， 这 个 方法 就 不 能 用 。 同 样 ， 如 果 用 了 
BinaryRead 方法 ， 就 不 能 访问 Request.Form 集合 


4.1.2. 从 浏览 器 端 取 得 数据 


Request 对 象 可 以 收集 并 处 理 用 户 通过 HTTP 请求 传 递 的 所 有 信息 , 包括 HTML 表格 用 
POST 方法 或 GET 方法 传递 的 参数 、Cookie 数据 和 用 户 认 证 等 。Request 的 语法 结构 如 下 : 


Request[. 集合 | 属性 | 方法 ]( 变量 ) 
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Request 对 象 包含 3 类 成 员 ， 分 别 为 集合 、 属 性 和 方法 ， 其 中 集合 包含 了 客户 端的 数据 
内 容 , 如 表 4-4 所 示 列 出 了 Request 对 象 的 集合 成 员 。 Request 对 象 的 属性 与 方法 各 有 一 个 ， 
并 在 ASP 网 页 中 很 少 使 用 ， 所 以 这 里 不 再 说 明 。 


表 4-4 Request 对 象 的 集合 成 员 
E 8 说 明 


Cookies 允许 用 户 检索 在 HTTP 请 求 中 发 送 的 Cookie 的 值 


Form 当 <form> 标 记 的 方法 设 为 POST， 检 索 HTTP 请 求 正文 中 的 表格 元 素 的 值 


QueryString | 检索 HTTP 查询 字符 串 变量 的 值 ，HTTP 查询 字符 串 由 问号 (? ) 后 的 值 指 定 
ServerVariables 客户 端 对 服务 器 提出 请 求 ， 同 时 传送 到 服务 器 的 HTTP. 标题 与 服务 器 变量 等 数据 


例如 ， 下 面 的 语句 用 于 从 HTML 表单 中 取得 用 POST 方法 传递 的 UserName 数据 : 
<% strUserName =Request.Form("UserName")%> 

Request 语句 中 的 集合 名 称 也 可 以 省 略 ， 如 上 面 的 语句 也 可 以 写成 以 下 的 形式 : 
<% strUserName =Request ("UserName")%> 


如 果 在 Request 对 象 中 没有 指定 准确 的 集合 名 称 ，ASP 会 自动 搜索 来 确定 数据 的 获取 
方法 。 搜 索 的 顺序 是 QueryString、Form、Cookies 和 ServerVariables, ASP 逐一 检查 是 否 
有 信息 输入 ， 如 果 有 则 返回 获得 的 变量 信息 。 


4.1.3 Request.QueryString 集合 读 取 表 单 GET 方法 数据 


网 页 中 常 采 取 表 单 的 形式 与 访问 者 进行 交互 。 用 户 在 表单 中 输入 信息 后 ， 单 击 “ 确 定 ” 
或 “提交 ”按钮 即 可 将 信息 传送 到 服务 器 上 。 服 务 器 可 获取 这 些 信息 进行 下 一 步 的 处 理 和 
操作 。 在 HTML 中 常见 的 FORM 语句 的 语法 结构 如 下 : 
«Form ”Action= 处 理 程序 的 网 址 ”Method=GetlPost ”Name= 该 FORM 的 名 称 > 


</Form> 


其 中 ，Action 属性 用 于 指定 表单 处 理 程序 的 URL; Method 属性 则 指定 提供 数据 的 方 
法 , 可取 值 为 GET 与 POST 方式 中 的 一 个 。 表 单 选用 GET 方 式 时 ,ASP 要 使 用 Request.Query 
String 集合 来 读 取 表单 数据 ;选用 POST 方式 时 ，ASP 则 使 用 Request.Form 集合 来 读 取 表 
单 的 数据 。 

当 HTML 表单 用 GET 方法 向 ASP 文件 传递 数据 时 ， 表 单 提 交 的 数据 不 是 被 当 作 一 个 
单独 的 包 发 送 ， 而 是 被 附 在 URL 的 查询 字符 串 中 一 起 被 提交 到 服务 器 端 指定 的 文件 中 。 

QueryString 集合 的 功能 就 是 从 查询 字符 串 中 读 取 用 户 提交 的 数据 。 例 如 从 下 面 的 URL 
地 址 信息 中 ，Request.QueryString 可 得 到 strName 和 Title 两 个 变量 的 值 。 
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注意 : 
查询 字符 串 以 问号 (? ) 开 始 ， 包 含 几 对 字段 名 和 分 配 的 值 。 不 同 的 字段 名 和 值 对 用 多 
符号 连接 。 


【练习 4-1】 使 用 GET 方法 传递 图 4-1 所 示 的 HTML 表单 中 的 值 ， 并 将 结果 在 ASP 
页 面 上 显示 出 来 ， 显 示 结 果 如 图 4-2 所 示 。 
(1) 创建 一 个 名 为 QueryString.asp 的 网 页 ， 其 代码 如 下 所 示 : 


«Form Action="login1.asp" Method-"Get" Name="login"> 

用 户 名 : <Input Type=text Name-strName > 

<Br><Br> 

性 &nbsp JJ: <Input Name="Title" Type="Radio" Value="Mr" Checked> 先 生 
<Input Name="Title" Type="Radio" Value="Ms"> 女 士 

<Br><Br> 

<Input Type="Submit" Value=" 确 认 提交 "> 

<Input Type-"Reset" Value=" 重 新 输入 "> 

</Form> 


(2) 将 QueryString.asp 文件 保存 至 C:\Inetpubvwwwroot RHK F. 
(3) 创建 表单 信息 结果 的 程序 文件 login1.asp， 其 代码 如 下 所 示 : 


<% 

Dim strName,strTitle 
strName=Request.QueryString("strName") 
Response.Write" 您 的 用 户 名 为 "&strName 
Response.Write"<br>" 
strTitle-Request.QueryString("Title") 

If strTitle-"Mr" Then 
Response.Write" 先 生 ， 您 好 ! " 

ELse 

Response.Write" 女 士 ， 您 好 ! " 

End If 

%> 


(4) 将 loginl.asp 文件 保存 至 C:\Inetpubvwwwroot X fF X P. 

(5) 启动 正 浏 览 器 后 ， 在 地 址 栏 中 输入 http://localhost/QueryString.asp 并 按 Enter 键 ， 
效果 如 图 4-1 所 示 。 

(6) 在 QueryString.asp 页 面 的 “用 户 名 ”文本 框 中 输入 用 户 的 名 称 ， 如 “ 杜 思 明 ”， 
在 “性 别 ” 选 项 区 域 中 选中 “先生 ” 单 选 按钮 ， 然 后 单 击 “确认 提交 ”按钮 ， 浏 览 器 将 会 
打开 如 图 4-2 所 示 的 loginl.asp 页 面 显示 QueryString.asp 页 面 中 的 输入 结果 。 
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图 4-1 QueryString.asp 页 面 效果 图 4-2 loginl.asp 页 面 效 果 


4.14 Request.Form 集合 读 取 表单 POST 方法 数据 


GET 方法 的 优点 是 可 以 方便 地 为 服务 器 端 传 递 信息 , 缺点 是 不 能 传递 长 而 复杂 的 数据 
到 服务 器 端 , 否则 会 造成 数据 的 丢失 , 这 是 因为 某 些 服务 器 会 限制 URL. 查询 字符 串 的 长 度 。 
因此 ， 如 果 要 将 表单 中 的 大 量 数据 发 送 到 服务 器 ， 应 使 用 POST 方法 。 

POST 方法 在 HITP 请 求 体内 发 送 数据 ， 几 乎 不 限制 发 送 到 Web 服务 器 的 数据 长 度 。 
检索 使 用 POST 方法 发 送 的 数据 通常 采用 Request 对 象 的 Form 集合 来 进行 。 

注意 : 

Form 集合 和 Form 表单 的 区 别 : Form 表单 是 HTML 提供 的 表单 ,并 不 是 ASP 特有 的 ; 
Form 集合 是 特 指 ASP 的 Request 对 象 获取 信息 的 一 种 方法 。 两 者 的 联系 就 是 ASP 用 Form 
集合 来 获取 Form 表单 中 的 数据 信息 。 


【练习 4-2】 编 写 一 个 计算 器 程序 ， 可 使 用 POST 方法 接受 HTML 表单 中 的 数值 和 运 
算 符 ， 并 将 正确 的 计算 结果 在 当前 页 面 上 显示 出 来 ， 结 果 如 图 4-3 所 示 。 
(1) 创建 一 个 名 为 calculator.asp 的 网 页 ， 其 代码 如 下 所 示 : 


«Form Action=calculator.asp Method=post> 

操作 数 1: «Input Type=text Name=num1><br> 

操作 数 2: <Input Type=text Name=num2><br> 

<p> 

选择 你 要 进行 的 操作 <br> 

«Input Type-radio Name-operation Value=" 加 "checked> 加 <br> 


© 


<Input Type=radio Name=operation Value=" 减 "> 减 <br> 
«Input Type-radio Name=operation Value=" 乘 "> 乘 <br> 
«Input Type-radio Name=operation Value=" 除 "> 除 <br> 
<Input Type=Submit><Input Type=Reset> 

</Form> 

<H> 

<% 


Dim nl.n2.op 
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If Request.form.count-0 Then 
' Request.form.count 确定 参数 中 值 的 个 数 。 如 果 参 数 未 关联 多 个 值 ， 则 计数 为 1 
"如 果 找 不 到 参数 ， 计 数 为 0 

Response.end 
End If 
nl-Request.form("num1") 
n2-Request.form("num2") 

op-Request.form("operation") 

If op=" 加 " Then 

Response. Write nl &"*"&n2&"-"&cIng(n1)*clng(n2) 

Elseif op=" 减 " Then 


Elseif op=" 乘 " Then 
Response.Write nl&"*"&n2&"="&clng(nl)*clng(n2) 
Elseif op=" 除 " Then 


End If 
%> 
(2) 将 calculator.asp 文件 保存 至 C:\Inetpubvwwwroot 文件 夹 中 。 
(3) 启动 正 浏 览 器 后 ， 在 地 址 栏 中 输入 http://localhost/calculator.asp 并 按 Enter 键 ， 效 
果 如 图 4-4 所 示 。 
(4) 在 calculator.asp 页 面 的 “操作 数 1” 和 “操作 数 2” 文 本 框 中 输入 任意 数字 ， 并 在 
“选择 你 要 进行 的 操作 ”选项 区 域 中 选中 所 需 的 操作 单 选 按 钮 ， 然 后 单 击 “ 提 交 查询 内 容 ” 
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图 4-3 计算 结果 图 4-4 calculatorasp 页 面 效果 


4.1.5 ”Request.ServerVariables 集合 读 取 服务 器 端 环 境 变量 


在 浏览 器 中 浏览 网 页 时 使 用 的 传输 协议 是 HTTP, Æ HTTP 的 标题 文件 中 会 记录 一 些 
客户 端的 信息 ， 如 客户 的 了 P 地 址 、 浏 览 器 版 本 及 端口 号 等 。 
有 时 服务 器 端 需要 根据 不 同 的 客户 端 信息 做 出 不 同 的 反应 ， 这 时 就 需要 用 Server 


3 量 
zo = 
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Variables 集合 获取 所 需 信 息 。 常 用 的 环境 变量 及 其 说 明 如 表 4-5 所 示 。 


表 4-5 常用 的 环境 变量 
说 了 明 


CONTENT LENGTH 


CONTENT TYPE 


客户 端 所 提交 内 容 的 长 度 
客户 端 所 提交 内 容 的 类 型 ， 如 text/html， 同 附加 信息 的 查询 一 起 使 
用 ， 如 HTTP 查询 GET. POST 和 PUT 


HTTP ACCEPT LANGUAGE 


浏览 器 用 该 变量 向 服务 器 传送 用 于 显示 内 容 所 使 用 的 语言 , 格式 是 
LA-CO 或 LA, LA 是 语言 的 缩写 ，CO 是 国家 的 缩写 。 若 接受 多 种 
语言 ， 则 用 去 号 分 隔 开 


HTTP USER AGENT 


该 变量 包含 浏览 器 的 名 字 、 版 本 和 平台 


HTTP REFERER 


LOCAL ADDR 


PATH INFO 


QUERY STRING 
REMOTE ADDR 


REMOTE HOST 


REQUEST METHOD 
SERVER NAME 
SERVER PORT 


确定 哪个 Web 页 调用 脚本 

返回 接受 请 求 的 服务 器 地 址 。 如 果 在 绑 定 多 个 IP 地 址 的 多 宿主 机 
上 查找 请 求 所 使 用 的 地 址 时 ， 这 个 变量 非常 重要 
客户 端的 路 径 信息 。 可 以 通过 虚拟 路 径 和 PATH. INFO 变量 来 访问 
脚本 

查询 HTTP 请 求 中 问号 (?) 后 的 信息 

发 出 请 求 的 远程 主机 的 IP 地 址 

发 出 请 求 的 主机 名 称 。 如 果 服 务 器 无 此 信息 , 它 将 REMOTE_ADDR 
变量 设置 为 空 

该 方法 用 于 提出 请 求 。 相 当 于 HTTP 的 GET、HEAD、POST 等 

出 现在 自 引用 URL 中 的 服务 器 主机 名 、DNS 域名 或 IP 地 址 

发 送 请 求 的 端口 号 


列举 ServerVariables 集合 包含 的 所 有 成 员 及 其 值 的 方法 如 下 。 


<OL> 


<% For Each Key in Request.ServerVariables%> 


<Li> 


<B><%=Key%>=</B><%=Request.ServerVariables(key)%><BI> 


<%Next%> 
</OL> 


根据 对 ServerVariables 集合 获取 的 信息 进行 处 理 , 服务 器 端 可 对 不 同 的 客户 端 信息 做 出 不 


同 的 反应 。 例 如 ， 如 果 某 一 计算 机 上 安装 了 多 个 Web 服务 器 ， 也 就 是 有 多 个 域名 同时 对 应 着 
一 个 全 地址 ， 这 时 可 以 使 用 SERVER_NAME 属性 来 根据 不 同 的 域名 显示 不 同 的 页 面 。 


【练习 4-3】 读 取 环 境 变量 SERVER_NAME， 然 后 根据 检索 到 的 域名 来 执行 重 定向 。 
(1) 创建 一 个 名 为 Cdx.asp 的 网 页 ， 其 代码 如 下 所 示 : 
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<% 

Response.Expires=0 "设置 页 面 的 缓存 过 期 时 间 为 0 
Dim strServerName 
strServerName-Request.ServerVariables("SERVER NAME") 

"此 例 需 有 一 定 的 服务 器 配置 环境 才能 看 到 实际 的 效果 


Select Case strServerName 


Case "www.testl.com" ' 当 访问 的 域名 为 www.testl.com 时 
Response.Redirect "test1.asp" ' 重 定向 到 testl.asp 文件 
Case "www.test2.com" ' 当 访问 的 域名 为 www.test2.com 时 
Response.Redirect "test2.asp" ' 重 定向 到 test2.asp 文件 
Case Else 
Response.Redirect "notFound.asp" 
End Select 
%> 


(2) 将 Cdx.asp 文件 保存 至 C:\Inetpubvwwwroot 文件 夹 中 。 

(3) 启动 了 正 浏 览 器 后 , 在 地 址 栏 中 输入 http://localhost/Cdx.asp 并 按 Enter 键 测试 网 页 。 
这 时 ，ASP 网 页 会 根据 读 取 的 环境 变量 SERVER_NAME， 打 开 不 同 的 网 页 ( 当 服 务 器 访问 
www.testl.com 网 站 时 ，Cdx.asp 将 自动 打开 testl.asp 页 面 ， 当 服务 器 访问 www.test2.com 
网 站 时 ， 则 打开 test2.asp 页 面 ， 如 果 服 务 器 没有 打开 任何 一 个 网 站 ，Cdx.asp 页 面 将 重 定向 
到 notFound.asp 页 面 )。 


4.2 Response 对 象 


Response 对 象 用 于 向 客户 浏览 器 发 送 服务 器 端的 数据 。 用 户 可 以 使 用 该 对 象 将 服务 器 
端的 数据 用 HTML 的 格式 发 送 到 客户 端 浏览 器 。 该 对 象 的 功能 与 Request 对象 的 功能 相反 ， 
Request 对 象 用 于 得 到 用 户 提交 的 数据 ， 而 Response 对 象 用 于 将 服务 器 端的 数据 发 送 到 用 
户 浏览 器 ， 这 是 实现 网 页 动态 效果 的 基础 。 


4.2.1 Response 对 象 简介 


Response 对 象 用 于 控制 发 送 给 用 户 的 信息 ， 包 括 直接 发 送信 息 给 客户 端 浏览 器 ， 重 定 
向 浏览 器 到 另外 一 个 URL 以 及 设置 Cookie 的 值 。 


1. Response 对 象 的 集合 


如 表 4-6 所 示 为 Response 对 象 的 唯一 集合 ， 该 集合 设置 希望 放置 在 客户 系统 上 的 
Cookie 的 值 ， 它 直接 等 同 于 Request.Cookies 集合 。 
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34-6 Response 对 象 的 集合 及 说 明 
说 明 
在 当前 响应 中 , 返回 客户 端的 所 有 Cookie 的 值 ， 这 个 集合 为 只 


集合 名 称 


Cookies 


2. Response 对 象 的 属性 


Response 对 象 也 提供 一 系列 的 属性 ， 可 以 读 取 和 修改 ， 使 响应 能 够 适应 请 求 。 当 设置 
某 些 属性 时 ， 使 用 的 语法 可 能 与 通常 所 使 用 的 有 一 定 的 差异 ， 如 表 4-7 所 示 。 


表 4-7 Response 对 象 的 属性 及 说 明 


属 性 说 RA 

读 / 写 , 布尔 型 , 表明 由 一 个 ASP 页 面 所 创建 的 输出 是 否 一 直 存 
放 在 ns 缓冲 区 ， 直 到 当前 页 面 的 所 有 服务 器 脚本 处 理 完毕 或 
Flush、End 方法 被 调用 。 在 任何 输出 (包括 HTTP 报头 信息 ) 送 

Buffer =True/False ft ns 之 前 这 个 属性 必须 设置 。 因此 在 .asp 文件 中 , 这 个 设置 应 
该 在 <%@LANGUAGE=.…%> 语 句 后 面 的 第 一 行 。 在 ASP 3.0 以 
及 后 续 版 本 中 默认 设置 缓冲 为 开 (True), 而 在 早期 版 本 中 默认 为 
(False) 
读 / 写 ， 字 符 型 ， 设 置 这 个 属性 为 Public， 人 允许 代理 服务 器 缓存 
页 面 ， 如 果 为 Private， 则 禁止 代理 服务 器 缓存 的 发 生 
读 / 写 ， 字 符 型 ， 在 由 服务 器 为 每 个 响应 创建 的 HTTP 


CacheControl "setting" 


Charset-" value" Content-Type 报头 中 附 上 所 用 的 字符 集 名 称 ( 例 如 
ISO-LATIN-7 
读 / 写 ， 字 符 型 ， 指 明 响 应 的 HTTP 内 容 类 型 ， 标 准 的 MIME 
Content Type="MIME-type" 类 型 (例如 text/xml 或 Image/gifj。 假 如 省 略 ， 表 示 使 用 MIME 


类 型 text/html， 内 容 类 型 告诉 浏览 器 所 期 望 内 容 的 类 型 

读 / 写 ， 数 值 型 ， 指 明 页 面 有 效 的 以 分 钟 计算 的 时 间 长 度 ， 假 如 

用 户 请 求 其 有 效 期 之 前 的 相同 页 面 ， 将 直接 读 取 显 示 缓 冲 中 的 

内 容 , 这 个 有 效 期 过 后 , 页 面 将 不 再 保留 在 私有 (用 户 ) 或 公用 ( 代 

理 服务 器 ) 缓 冲 中 

读 / 写 , 日 期 /时 间 型 , 指明 当 某 页 面 过 期 和 不 再 有 效 时 的 绝对 日 

期 和 时 间 

只 读 , 布尔 型 ,返回 客户 是 否 仍然 连接 和 下 载 页 面 的 状态 标志 。 

IsClientConnected 在 当前 的 页 面 已 执行 完毕 之 前 ， 假 如 一 个 客户 转移 到 另 一 个 页 
面 ， 这 个 标志 可 用 来 中 止 处 理 (使 用 Response.End 方法 ) 


Expires minutes 


Expires Absolute #date[time]# 
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m 性 
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( 续 表 ) 
说 mH 


PICS "PICS-Label-string" 


RS, 字符 型 ,创建 一 个 PICS 报头 并 将 其 加 到 响应 中 的 HTTP 
报头 中 ，PICS 报头 定义 页 面 内 容 中 的 词汇 等 级 ， 如 暴力 、 性 、 
不 良 语言 等 


Status="Code message" 


3. Response 对 象 的 方法 


读 / 写 ， 字 符 型 ， 指 明 返回 客户 响应 的 HTTP 报头 中 表明 错误 或 
页 面 处 理 是 否 成 功 的 状态 值 和 信息 。 例 如 200 OK 和 404 Not 


Found 


如 表 4-8 所 示 为 Response 对 象 提供 一 系列 的 方法 ， 它 允许 直接 处 理 为 传 给 客户 端 而 创 


建 的 页 面 内 容 。 


AddHeader("name","content") 


AppendToLog('string") 


R 4-8 Response 对 象 的 方法 及 说 明 


说 RB 

通过 使 用 name 和 content 值 ， 创 建 一 个 定制 的 HTTP 报头 ， 并 
增加 到 响应 中 。 不 能 替换 现 有 的 相同 名 称 的 报头 。 一 旦 增加 了 
一 个 报头 就 不 能 删除 。 这 个 方法 必须 在 任何 页 面 内 容 ( 即 text 和 
HTML) 被 发 往 客户 端 前 使 用 

当 使 用 W3C Extended Log File Format 文件 格式 时 ， 对 于 用 户 请 
求 的 Web 服务 器 的 日 志文 件 增加 一 个 条 目 。 至 少 要求 在 包含 页 
面 的 站 点 的 Extended Properties 中 选择 URIStem 

在 当前 的 HTTP 输出 流 中 写 入 Variant 类 型 的 SafeArray， 而 不 
经 过 任何 字符 转换 。 对 于 写 入 非 字符 串 的 信息 ， 例 如 定制 的 应 


用 程序 请 求 的 二 进 制 数据 或 组 成 图 像 文件 的 二 进 制 字 节 ， 是 非 
常 有 用 的 
当 Response.Buffer 为 True 时 ， 从 IIS 响应 缓冲 中 删除 现存 的 组 
Clear() 冲 页 面 内 容 。 但 不 删除 HTTP 响应 的 报头 ， 可 用 来 放弃 部 分 完 
成 的 页 面 
ae 让 ASP 结束 处 理 页 面 的 脚本 ， 并 返回 当前 已 创建 的 内 容 ， 然 后 
放弃 页 面 的 进一步 处 理 
发 送 us 缓冲 中 所 有 当前 缓冲 页 面 给 客户 端 。 当 Response.buffer 
Flush() 


Redirect("url") 


为 True 时， 可 以 用 来 发 送 较 大 页 面 的 部 分 内 容 给 个 别 的 用 户 
通过 在 响应 中 发 送 一 个 302 Object MovedHTTP 报头 , 指示 浏览 
器 根据 字符 串 URL 下 载 相应 地 址 的 页 面 


Write("string") 


在 当前 的 HTTP 响应 信息 流 和 IIS 缓冲 区 写 入 指定 的 字符 , 使 之 
成 为 返回 页 面 的 一 部 分 
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4.22 ”利用 缓冲 区 输出 数据 


使 用 浏览 器 打开 一 个 网 页 时 ， 有 时 需要 等 待 很 长 的 一 段 时 间 ， 这 是 因为 设置 了 页 面 组 
冲 输出 。 页 面 缓冲 利用 Response 对 象 在 缓冲 区 输出 数据 。 
1. Buffer 属性 


在 ASP 程序 中 ,可 以 为 页 面 在 服务 器 端 设 置 一 个 缓存 区 。 缓存 区 是 一 个 存储 区 ， 可 以 
在 其 释放 数据 之 前 容纳 一 段 时 间 ， 缓 冲 区 的 优点 在 于 它 的 行为 可 以 进行 控制 。 

设置 缓存 后 ， 服 务 器 端 可 减少 与 客户 端 连接 的 次 数 而 提高 整体 的 响应 速度 ， 并 可 在 满 
足 某 些 条 件 (如 脚本 处 理 不 正确 或 用 户 没 有 适当 的 安全 证 书 ) 时 撤销 已 经 处 理 的 结果 ， 而 不 
会 出 现 响 应 完成 一 部 分 就 停止 的 状况 。 

缓存 功能 的 打开 和 关闭 是 通过 Response 对 象 的 Buffer 属性 来 完成 的 。 若 将 Buffer 属 
性 设 为 False， 则 关闭 缓存 功能 ，Web 服务 器 在 处 理 页 面 时 会 随时 返回 HTML 和 脚本 结果 ; 
若 将 Buffer 属性 设 为 True， 则 打开 缓存 功能 ，Web 服务 器 在 处 理 页 面 时 会 将 结果 暂时 存放 
到 缓存 中 ， 当 全 部 脚本 处 理 完 后 ， 或 遇 到 End 或 Flush 方法 时 ， 才 将 缓存 中 的 内 容 发 送 到 浏 
览 器 。 

Buffer 属性 的 更 改 必 须 放 在 HTML 或 脚本 输出 之 前 。 这 是 因为 在 任何 内 容 发 送 到 浏览 
器 后 ，Buffer 属性 值 就 不 能 再 更 改 ， 否 则 会 引起 错误 。 


注意 : 
如 果 在 ASP 文件 中 的 任意 地 方 用 到 Redirect 方法 重 定向 页 面 ， 必 须 在 文件 开头 关闭 
Buffer 属性 ， 否 则 就 会 报错 。 


【练习 4-4】 创 建 一 个 用 于 测试 Buffer 属性 的 ASP 应 用 程序 ， 该 程序 会 在 浏览 器 上 显 
示 1-255 之 间 的 数字 ， 并 且 每 输出 一 个 数字 就 自动 换 1 行 。 
(1) 创建 一 个 名 为 Buffer.asp 的 网 页 ， 其 代码 如 下 所 示 ( 如 图 4-5 所 示 ): 
<html> 


<head> 1=255 
<title> 测 试 buffer 属性 的 例子 </title> 


</head> 

<body> 

<% 

For i-1 to 255 * 23 1-255 之 间 的 一 个 值 
Response.write(i&"-BR»") 输出 i 的 值 并 换行 

next 

%> 

</body> 


(2) 将 Buffer.asp 文件 保存 至 Ci\Inetpub\Wwwwroot 文件 夹 中 。 
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(3) ÈZ) IE 浏览 器 ， 在 地 址 栏 中 输入 http://localhost/Buffer.asp 并 按 Enter 键 ， 效 果 如 
图 4-6 所 示 。 


ones n 
qua^) "iiem 


图 4-5 Bufferasp 的 代码 图 4-6 Bufferasp 的 效果 


注意 : 

本 节 实例 创建 的 程序 脚本 在 屏幕 上 显示 1-255 之 间 的 数字 ， 并 且 每 输出 一 个 数字 就 换 
一 行 。 每 执行 一 句 命令 后 都 会 立即 显示 结果 。 如 果 把 Buffer 属性 设置 为 True, 那么 服务 器 
端的 Response 要 写 入 缓存 区 中 ， 当 脚本 处 理 完成 后 再 释放 给 用 户 。 如 果 把 Buffer 属性 设置 
为 False， 则 在 服务 器 处 理 脚 本 时 ，HTML 要 顺序 地 发 给 客户 程序 (上 面 实例 的 Buffer 属性 
使 用 默认 值 False)。 


2. ContentType 属性 
ContentType 属性 指定 响应 的 HTTP 内 容 类 型 ， 其 语法 结构 如 下 : 


Response.ContentType  [-ContentType] 
ContentType 字符 串通 常 被 格式 化 为 类 型 / 子 类 型 ， 其 中 类 型 是 常规 内 容 范畴 ， 子 类 为 
特定 内 容 类 型 。 如 果 未 指定 ContentType， 默 认为 texUHTML 。 
Web 服务 器 将 某 个 文件 发 送 到 浏览 器 时 , 将 文件 的 MIME 类 型 告诉 浏览 器 , 浏览 器 根 
据 文 件 的 MIME 类 型 和 扩展 名 来 确定 是 自己 本 身 就 能 显示 ， 还 是 必须 调用 其 他 应 用 程序 。 


注意 : 

MIME 即 Multipurpose Internet Mail Extensions( 多 用 途 Internet 邮 件 扩展 ), 作为 对 SMTP 
协议 的 扩充 , MIME 规定 了 通过 SMTP 协议 传输 非 文 本 电子 邮件 附件 的 标准 。 目 前, MIME 
的 用 途 早已 经 超越 了 收发 电子 邮件 的 范围 ， 成 为 在 Internet. 上 传输 多 媒体 信息 的 基本 协议 
之 一 ， 是 Intemet 上 识别 文件 类 型 的 标准 方法 。 

3. Expires 属性 


Expires 属性 指定 了 在 浏览 器 上 缓冲 存储 的 页 距 过 期 还 有 多 少时 间 。 如 果 用 户 在 某 个 页 
过 期 之 前 又 回 到 此 页 ， 就 会 显示 缓冲 区 中 的 版 本 。 其 语法 结构 如 下 : 
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Response.Expires [= 时 间 ] 
时 间 参 数 设置 网 页 距 过 期 还 有 多 少 分 钟 。 如 果 将 此 参数 设置 为 0， 可 使 缓存 的 页 立即 
过 期 ， 这 样 客户 端 每 次 都 将 从 服务 器 上 得 到 最 新 的 页 面 。 
4. Expires Absolute 属性 
Expires Absolute 属性 指定 缓存 于 浏览 器 中 的 页 面 的 确切 到 期 日 期 和 时 间 。 在 未 到 期 之 


前 ， 若 用 户 返回 到 该 页 ， 就 显示 该 缓存 的 页 。 如 果 未 指定 时 间 ， 该 主页 在 当天 午夜 到 期 。 
如 果 未 指定 日 期 ， 则 该 主页 在 脚本 运行 当天 的 指定 时 间 到 期 。 其 语法 结构 如 下 : 


Response.ExpiresAbsolute [= [日 期 ] [时 间 ] ] 
例如 ， 以 下 代码 指定 页 面 在 2007 年 7 月 31 A 16:17 分 15 秒 到 期 。 
<% Response.ExpiresAbsolute=#July 31,2007 16:17:15# %> 


如 果 Expires 属性 和 Expires Absolute 属性 在 一 个 页 面 上 设置 了 多 次 ，ASP 会 自动 选择 
使 用 最 短 的 设置 时 间 。 
5. Status 属性 


Status 属性 用 来 传递 服务 器 HTTP 响应 的 状态 。 这 个 属性 可 以 用 来 处 理 HTTP 请 求 后 
服务 器 返回 的 错误 。 

服务 器 返回 的 状态 码 由 3 位 数字 构成 ,可 以 根据 状态 码 来 确定 服务 器 是 如 何 处 理 HTTP 
请 求 的 。 在 调试 过 程 或 向 客户 端 返回 有 关 错 误 信 息 时 ，Status 属性 特别 重要 。 如 表 4-9 所 
示 对 常见 的 状态 码 做 了 说 明 。 


表 4-9 HTTP 响应 状态 码 


码 XA S 状 S 
200 OK Unauthorized 

201 Created Forbidden 

202 Accepted Page not found 

204 No content Internet server error 
301 Moved permanentl Not implemented 
302 Moved temporarialy Bad gateway 

304 Not modified Service unavailable 
400 Bad request 


6. Charset 属性 


Charset 属性 将 字符 集 名 称 附加 到 Response 对 象 中 的 ContentType 标题 后 面 ， 其 语法 
结构 如 下 : 
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Response.Charset (字符 集 ) 


对 于 不 包含 Response.Charset 属性 的 ASP 页 ,Contenttype 标题 将 为 content-type:text/html, 
如 果 ASP 文件 包含 了 下 面 一 句 脚本 : 


<% Response.Charset("ISO-LATIN-7") %> 
则 Contenttype 标题 将 为 content-type:text/html;charset-ISO-LA TIN-7 . 


注意 : 

无 论 字 符 串 表示 的 字符 集 是 否 有 效 ,该 功能 都 会 将 其 插入 Contenttype 标题 中 。 如 果 某 
个 页 包含 多 个 含有 Response.Charset 的 标记 ， 则 每 个 Response.Charset 都 将 替代 前 一 个 
CharsetName. 这 样 ,字符 集 将 被 设置 为 该 页 中 Response.Charset 的 最 后 一 个 实例 所 指定 的 值 。 

7. IsClientConnected 属性 

IsClientConnected 属性 是 只 读 属性 ， 用 来 指示 自 上 次 调用 Response. Write 后 ， 客 户 端 
是 否 与 服务 器 相连 。 其 语法 结构 如 下 : 


Response.IsClientConnected ( ) 


IsClientConnected 属性 允许 用 户 在 客户 端 与 服务 器 没有 连接 的 情况 下 有 更 多 的 控制 。 
例如 ， 在 从 客户 端 提 出 请 求 起 到 服务 器 作出 响应 ， 其 间 要 用 去 很 长 的 一 段 时 间 ， 
IsClientConnected 属性 就 可 以 确保 在 继续 处 理 脚本 之 前 客户 端 仍 是 连通 的 。 


8. CacheControl 属性 


CacheControl 属性 用 来 控制 是 否 允 许 代理 服务 器 高 速 缓存 。CacheControl 属性 的 默认 
值 为 Private， 可 以 阻止 代理 服务 器 高 速 缓 存 页 面 信 息 。 当 属性 值 为 Public 时 ， 代 理 服务 器 
可 以 缓冲 由 ASP 产生 的 输出 。 其 语法 结构 如 下 : 


Response.CacheControl [= 缓冲 存储 器 控制 标题 ] 


【练习 4-5】 设 置 网 页 的 缓存 时 间 并 控制 在 浏览 器 的 显示 内 容 。 
(1) 创建 一 个 名 为 CacheControl.asp 的 网 页 ， 其 代码 如 下 所 示 : 


<% 

Response.Buffer=TRUE "将 此 页 面 设 为 缓存 页 ， 服 务 器 暂时 不 将 显示 内 容 发 送 到 浏览 器 
Response.Expires-60 "设置 缓存 过 期 时 间 为 60 分 钟 

%> 


设置 为 缓存 时 间 为 一 个 小 时 的 第 一 段 测试 的 语句 。<Br> 


<% 


Response.Clear ' 清 除 缓存 中 的 所 有 内 容 
Response.Expires=0 ' 设 置 缓存 过 期 时 间 为 0 分 钟 


%> 
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第 二 段 会 被 显示 的 测试 语句 。 


<% 

Response.Flush "将 缓存 区 的 内 容 立 即 传送 到 浏览 器 

96 

<% 

Response.End "Web 服务 器 停止 当前 的 脚本 处 理 并 返回 当前 结果 
%> 


不 会 被 送 往 浏览 器 显示 的 第 三 段 测 试 语句 。 
(2) 将 CacheControl.asp 文件 保存 至 C:\Inetpubvwwwroot X fF A P. 


4.2.3 ”实现 网 页 的 重 定位 


本 章 的 第 4.2.2 节 介 绍 了 Response 对 象 的 属性 ,本 节 将 重点 介绍 Response 对 象 的 方法 。 
在 ASP 应 用 程序 中 ， 使 用 Response 对 象 的 方法 可 以 根据 客户 端 不 同 的 请 求 输出 不 同 的 返 
回 结果 。 

1. Write 方法 


Write 方法 是 Response 对 象 中 最 常用 的 方法 之 一 ， 它 可 以 把 变量 的 值 发 送 到 用 户 端的 
当前 页 面 。Write 方法 的 功能 很 强大 ， 几 乎 可 以 输出 所 有 的 对 象 和 数据 。 
在 Write 方法 中 可 以 嵌入 任何 HTML 标记 ， 只 要 该 标记 是 合法 的 。 如 下 例 将 输出 绿色 
的 汉字 和 一 条 水 平 线 : 
Response.Write "<Font color=green>" 
Response.Write "欢迎 您 来 访问 ! "&"<Br>" 
Response.Write "</Font>" 
Response.Write "<Hr>" 


将 HTML 标记 与 ASP 中 的 变量 恰当 地 结合 使 用 ， 可 使 程序 更 简洁 易 读 。 如 下 例 是 根 
据 Request 对 象 获 取 的 数据 来 创建 表格 的 一 行 信息 : 


<%Response.Write "<Tr><Td>"&Request.Form("strUserName")&"</Td><Td>"_ 
& Request.Form("intAge")&"</Td></Tr>" % 


2. Clear 方 法 


Clear 方法 用 于 清除 缓冲 区 的 所 有 HTML 输出 ， 但 它 只 删除 响应 正文 而 不 删除 响应 标 
题 。 在 服务 器 上 的 程序 产生 错误 时 ， 可 用 Clear 方法 来 处 理 错 误 情况 。 


注意 : 
Clear 方法 仅 当 Response 对 象 的 Buffer 属性 设 为 True 时 才 起 作用 。 如果 Buffer 属性 未 
设 为 True， 则 Clear 方法 将 导致 运行 错误 。 
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3. Flush 方法 


调用 Flush 方法 时 ,缓存 中 的 所 有 内 容 会 立即 发 送 到 客户 端 。 与 Clear 方法 一 样 ， 如 果 
Response 对 象 的 Buffer 属性 没有 设 为 Tme， 则 Flush 方法 同样 会 产生 运行 错误 。 


4. End 方法 


End 方法 使 服务 器 停止 当前 脚本 的 处 理 并 返回 当前 结果 。 如 果 Response 对 象 的 Buffer 


属性 设 为 True， 则 End 方法 立即 把 缓存 中 的 内 容 发 送 到 客户 端 并 清除 缓存 。 


因此 ， 若 想 取 


消 向 客户 端的 所 有 输出 ， 可 以 先 用 Clear 方法 清除 缓存 ， 再 用 End 方法 停止 脚本 的 处 理 。 


5. Redirect 方 法 


在 普通 网 页 中 ， 可 以 使 用 超 链 接 的 方式 来 引导 访问 者 跳 转 到 另 一 个 页 面 ， 但 这 个 过 程 
需要 访问 者 单 击 一 个 超 链接 才 可 以 进行 。Response 对 象 的 Redirect 方法 则 可 以 自动 完成 页 


面 间 的 跳 转 ， 而 访问 者 几乎 不 会 感觉 出 来 。 


【练习 4-6] 创建 一 个 搜索 页 面 ， 如 图 4-7 所 示 。 使 用 Response.Redirect 方法 编写 程序 


来 完成 不 同 搜索 引擎 的 转向 定位 ， 搜 索 结 果 如 图 4-8 所 示 。 
(1) 创建 一 个 名 为 Redirect.asp 的 网 页 ， 其 代码 如 下 所 示 : 


— 


«Form Method-"get" Action-"redirect.asp" 

«Input Type-"Text" Name-"SearchStrings"^ 

«Input Type-"Submit" Name-"Search" Value=" 搜 索 "> 

<p> 

<Input Name="goURL" Type-"Radio" Value=" 百 度 " Checked> 百 度 
<Input Name="goURL" Type="Radio" Value="Yahoo">Yahoo 
</Form> 


<% 


Response.Buffer=True 和 打开 缓存 功能 


Dim strUrIRedirTo,strSearchStrings 


strSearchStrings-Trim(Request.QueryString("SearchStrings")) ”' 获 取 欲 搜索 的 关键 字 


If (Len(strSearchStrings)) Then 


strSearchStrings-Server.UrlEncode(strSearchStrings) — ' 对 字符 串 按 URL 规则 进行 编码 


If Request.QueryString("goURL")=" 百 度 " Then 


strUrlRedirTo="http://www.baidu.com/baidu?word="&strSearchStrings "产生 跳 转 的 URL 


End if 
If Request.QueryString("goURL")-"Yahoo" Then 


strUrlRedirTo-"http://cn.websearch.yahoo.com/search/web cn?p-"&strSearchStrings 


End If 

Response.Redirect strUrlRedirTo ' 跳 转 语句 
End If 

%> 
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(2) 3f Redirect.asp 文件 保存 至 C:Inetpubwwwroot 文件 夹 中 。 

(3) 启动 IE 浏览 器 后 ， 在 地 址 栏 中 输入 http;//localhost/Redirect.asp 并 按 Enter 键 ， 效 
果 如 图 4-7 所 示 。 

(4) 在 图 4-7 所 示 页 面 的 文本 框 中 输入 ASP， 并 选中 “百度 ” 单 选 按钮 ， 然 后 单 击 “ 搜 


E * 
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< 


图 4-7 Redirect.asp 页 面 效果 图 4-8 搜索 结 
6. Binary Write 方法 
BinaryWrite 方法 不 经 任何 字符 转换 就 将 指定 的 信息 写 到 HITP 输出 。 该 方法 用 于 写 非 
字符 串 信 息 ， 如 客户 端 应 用 程序 所 需 的 二 进 制 数据 ， 常 见 的 有 图 形 、 声 音 或 影像 等 。 其 语 
法 结构 如 下 : 
Response.BinaryWrite 输出 数据 


如 果 有 一 个 产生 字 节 数组 的 对 象 ， 就 可 调用 BinaryWirite 将 这 些 生 成 的 字 节 发 送 给 客 
户 端 应 用 程序 ， 如 下 例 所 示 : 
<% 
Set BinGen = Server.CreateObject(MY.BinaryGenerator) 
Pict = BinGen.MakePicture 


Response.Binary Write Pict 
997 


7. AddHeader 方法 


AddHeader 方 法 用 指定 的 值 添加 HTML 标题 .该 方法 常常 向 响应 添加 新 的 HTTP 标题 ， 
并 不 替代 现 有 的 同名 标题 。 一 旦 标题 被 添加 ， 将 不 能 删除 。 其 语法 结构 如 下 : 


Response.AddHeader 标题 变量 名 称 ， 初 始 值 


为 避免 命名 不 明确 ， 标 题 变量 名 称 中 不 能 包含 任何 下 划 线 字符 “””。 由 于 HTTP 协议 
要 求 所 有 的 标题 都 必须 在 内 容 之 前 发 送 , 所 以 必须 在 任何 输出 (例如 由 HTML 或 Write 方法 


。84 。 ASP 动态 网 站 开发 教程 (第 三 版 ) 


生成 的 输出 ) 发 送 到 客户 端 之 前 在 脚本 中 调用 AddHeader。 但 当 Buffer 属性 被 设置 为 True 
时 例外 。 若 输出 被 缓冲 , 则 可 以 在 脚本 中 的 任何 地 方 调用 AddHeader 方法 ， 只 要 它 在 Flush 
之 前 执行 即 可 。 


8. AppendToLog 方法 


AppendToLog 方法 在 Web 服务 器 日 志文 件 的 末尾 增加 一 项 ,每 项 内 容 最 多 80 个 字符 。 
可 以 在 脚本 的 同一 部 分 多 次 调用 该 方法 。 每 次 调用 该 方法 时 ， 都 会 在 当前 条 目 中 添加 指定 
的 字符 串 。 其 语法 结构 如 下 : 


Response.AppendToLog 字符 串 


输出 的 字符 串 为 要 添加 到 日 志文 件 中 的 文本 。 由 于 日 志文 件 的 每 项 是 以 逗号 分 隔 的 ， 
所 以 字符 串 的 内 容 中 不 能 含有 逗号 ， 字 符 串 最 大 长 度 为 80 个 字符 。 


注意 : 
服务 器 日 志文 件 是 记载 访问 情况 的 纯 文本 文件 , 默认 放置 于 Windows/System32/LogFiles 
文件 夹 中 ， 可 以 使 用 任何 文本 编辑 器 来 读 写 。 


4.3 在 网 页 中 使 用 Cookie 


Cookie 是 一 种 标记 ， 由 Web 服务 器 嵌入 用 户 浏览 器 中 来 标识 用 户 。 当 下 次 同一 个 浏 
览 器 请 求 网 页 时 ， 将 把 以 前 从 Web 服务 器 得 到 的 Cookie 再 传送 给 服务 器 。Cookie 允许 一 
个 用 户 关联 一 组 信息 。Cookie 被 保存 为 简单 的 文本 文件 ， 其 名 称 标识 用 户 和 站 点 ， 可 以 用 
任何 文本 编辑 器 打开 。 


4.3.1 认识 Cookie 


Cookie 是 Web 服务 器 嵌入 客户 机 中 以 标识 用 户 的 标记 ， 是 服务 器 或 脚本 可 以 维护 用 
户 信息 的 一 种 方式 。 

当 用 户 访问 一 个 Web 站 点 时 ，Web 服务 器 可 以 在 用 户 的 计算 机 上 建立 一 个 Cookie X 
件 ， 里 面包 含 用 户 的 有 关 信息 ， 如 身份 识别 号 码 、 密 码 、 用 户 在 Web 站 点 上 购物 的 方式 
或 用 户 访问 该 站 点 的 次 数 。 以 后 ,无 论 何 时 连接 到 Web 站 点 服务 器 ,都 可 以 访问 这 个 Cookie 
文件 ， 来 查询 和 修改 其 中 的 信息 。 

每 个 网 站 都 可 以 设置 自己 的 Cookie，Cookie 中 的 数据 完全 由 Web 服务 器 的 管理 者 来 
决定 。 例如 ， 当 Web 服务 器 想 知道 某 个 用 户 是 否 曾 进 入 到 它 的 站 点 或 想 获得 某 个 使 用 者 的 
相关 资料 时 ， 便 可 使 用 Cookie。 

Cookie 有 会 话 Cookie 和 永久 Cookie 两 种 形式 。 前 者 是 临时 的 ， 只 在 浏览 器 打开 时 存 
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在 ; 后 者 是 永久 的 ， 存 在 于 用 户 的 硬盘 上 并 在 指定 日 期 过 期 之 前 一 直 可 用 。 


4.3.2. Cookie 的 属性 


Cookie 的 属性 用 于 Web 服务 器 指定 欲 设置 的 Cookie 值 ， 各 种 属性 的 名 称 及 说 明 如 表 
4-10 所 示 。 


表 4-10 Cookie 的 属性 


m 性 说 了 明 
只 写 。 指 定 Cookie 的 过 期 日 期 。 要 在 会 话 结束 后 将 Cookie 存在 用 户 的 硬盘 上 ， 必 须 

ie 设置 该 属性 。 过 了 该 属性 设置 的 日 期 后 ，Cookie 就 不 能 使 用 了 。 通过 给 Cookie 赋 一 个 
过 期 的 日 期 ， 就 可 以 删除 Cookie。 如 果 不 对 Expires 属性 赋值 ， 那 么 默认 用 户 一 离开 
网 站 Cookie 就 过 期 

Domain 只 写 。 若 指定 ， 则 Cookie 只 被 发 送 到 对 指定 域 的 请 求 中 去 

只 写 。 若 指定 ， 则 Cookie 只 被 发 送 到 对 指定 路 径 的 请 求 中 去 。 若 未 设置 该 属性 ， 则 使 
用 应 用 程序 的 路 径 

HasKeys 只 读 。 确 定 Cookie 是 否 是 一 个 具有 多 个 键 值 的 Cookie 字典 ， 若 是 ， 则 返回 True 

Secure 只 写 。 确定 Cookie 是 否 是 安全 的 ，Secure 属性 设 为 Tme， 则 Cookie 传递 中 就 实行 了 加 密 算法 


4.3.3 设置 Cookie 


ASP 脚本 可 用 Response 和 Request 对 象 的 Cookies 集合 来 设置 和 获取 Cookies 的 值 。 
创建 Cookie 的 方法 有 两 种 : 一 种 是 创建 单 值 的 Cookie; 另 一 种 是 创建 Cookie 字典 类 型 的 
Cookie， 即 Cookie 允许 存在 多 个 键 值 对 。 


1. 创建 单 值 Cookie 
Response 对 象 的 Cookies 集合 用 来 设置 Cookie， 如 下 例 所 示 : 


<% 

Response.Cookies("Username")-"Zhangshihua" 
Response.Cookies("Username").Expires-"July 22.2007" 
967 


本 例 将 名 字 为 Username 的 Cookie 赋值 为 Zhangshihua， 同 时 将 过 期 时 间 限 定 为 2007 
年 7 月 22 日 。 

如 果 该 Cookie 名 称 不 存在 ， 则 浏览 器 会 自动 新 建 一 个 名 称 并 执行 赋值 操作 。 如 果 该 
Cookie 已 存在 ， 浏 览 器 会 重新 给 Cookie 赋值 以 覆盖 原 值 。 
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注意 : 

由 于 Cookie 是 作为 HTTP 的 Header 部 分 来 发 送 给 客户 端 ， 那 么 该 语句 必须 放 在 ASP 
的 任何 输出 语句 之 前 执行 ， 或 使 用 Buffer 输出 。 

2. 创建 多 键 值 Cookie 


一 个 Cookie 可 以 有 多 个 键 值 ， 这 样 的 Cookie 称 为 Cookie 字典 ， 一 个 Cookie 字典 可 

以 含有 多 个 键 值 对 ， 如 下 例 所 示 : 

<% 

Response.Cookies("User")("Name")- "Zhangshihua" 

Response.Cookies("User")("Sex")- "male" 

Response.Cookies("User")("Password")- "21292390" 

Response.Cookies("User").Expires-"July 22,2004" 

%> 


上 面 的 代码 创建 了 一 个 名 为 User 的 Cookie 字典 , 其 中 含有 3 个 键 , 分 别 是 Name, Sex 
和 Password, iX 3 个 键 和 相应 的 值 都 在 一 个 大 的 Cookie 中 。 


注意 : 

Æ Response 对 象 的 Cookies 集合 中 定义 多 个 名 称 , 就 可 以 为 一 个 网 站 创建 多 个 Cookie 
了 。 但 是 ， 许 多 浏览 器 对 一 个 指定 网 站 就 限定 了 3~4 个 Cookie。 利 用 Cookie 技术 传递 诸 
如 密码 这 样 的 信息 要 特别 小 心 。 如 果 网 站 有 安全 接口 层 技 术 ， 也 可 以 进行 加 密 传输 ， 但 是 
在 浏览 器 端 该 信息 还 是 存放 在 文本 文件 中 。 

使 用 HasKeys 属性 来 判断 一 个 Cookie 是 否 是 一 个 Cookie 字典 ， 可 以 用 如 下 的 代码 : 


<%=Request.Cookies(" 名 称 ").HasKeys %> 


如 果 返 回 值 为 Tme， 那 么 它 就 是 一 个 Cookie 字典 。 
4.3.4 输出 Cookie 中 保存 的 值 


Request 对 象 的 Cookies 集合 用 来 输出 Cookie 值 ， 如 下 例 所 示 : 
<%=Request.Cookies("Username") 967 


此 例 将 输出 名 为 Username 的 Cookie 值 . 另 外 ,可 用 For Each 循环 或 Count 属性 和 For… 
Next 循环 结合 的 方式 来 将 Cookie 集合 的 所 有 属性 值 显示 出 来 ， 如 下 例 所 示 : 


<% 

For EACH thing IN Request.Cookies 
Response.write("<BR>"&thing&Request.Cookies(thing)) 
NEXT 
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%> 
对 于 Cookie 字典 , Response 对 象 的 Cookies 集合 可 以 按 每 一 个 键 的 相应 名 称 显示 相应 
键 值 ， 如 下 例 所 示 : 


<%=Request.Cookies("User")("Name")%> 
<%=Request.Cookies("User")("Sex")%> 


(1) 对 象 用 于 接收 客户 端 浏览 器 提交 的 数据 , 而 对 象 的 功能 则 
是 将 服务 器 端的 数据 发 送 到 客户 端 浏览 器 。 

(2) 如 果 在 Request 对 象 中 没有 指定 准确 的 集合 名 称 ，ASP 会 自动 按 QueryString、 

和 ServerVariables 的 顺序 来 搜索 确定 数据 的 获取 方法 。 

(3) 当 HTML 表单 用 方法 向 ASP 文件 传递 数据 时 ， 用 户 提交 的 数据 将 附 
在 URL 的 查询 字符 串 中 一 起 被 提交 到 服务 器 端 指定 的 文件 中 。 

(4) Response 的 方法 则 可 以 自动 完成 页 面 间 的 跳 转 。 

(5) 缓存 功能 的 打开 和 关闭 是 通过 Response 对 象 的 属性 来 完成 的 。 


4.4.2 选择 题 


(1) Response 对 象 的 ( 。””) 属 性 可 指定 缓存 页 面 的 确切 到 期 日 期 和 时 间 。 
A. Buffer 属性 B. Expires 属性 
C. ExpiresAbsolute 属性 D. CacheControl 属性 


(2) 下 面 不 属于 Request 对 象 的 集合 成 员 的 是 ( )。 
A. Cookies B. Form 
C. QueryString D. Server 

(3) 下 面 不 属于 Request.ServerVariables 集合 可 以 读 取 服 务 器 端 环境 变量 的 是 ( )。 
A. 客户 端的 网 速 


B. 客户 端 所 提交 内 容 的 数据 类 型 
C. 发 送 请 求 的 端口 号 
D. 发 出 请 求 的 远程 主机 的 他 地址 
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4.43 ”问答 题 
(1) 简 述 什么 是 对 象 。 
(2) 简 述 Request 对 象 和 Response 对 象 的 作用 及 相互 关系 。 
(3) 简 述 什么 是 Cookie， 有 什么 作用 。 
4.4.4 操作 题 


(D 参照 本 章 练习 ， 编 辑 ASP 程序 以 达到 如 图 4-9 所 示 的 网 页 效果 。 
请 选择 你 所 要 订购 的 水 果 生计 择 你 所 要 订购 的 水 条 


图 4-9 网 页 效果 1 
(2) 参照 本 章 所 介绍 的 内 容 ， 编 辑 ASP 程序 以 达到 如 图 4-10 所 示 的 网 页 效果 。 


使 用 Cookies 使 用 Cookies 
欢迎 光临 本 页 你 上 一 次 访问 本 页 在 2004-7-22 17:37:02 


图 4-10 网 页 效果 2 


第 5 章 Server 对 象 


Server 对 象 主要 用 于 服务 器 的 相关 操作 , 例如 建立 对 象 , 对 字符 串 应 用 URL 或 HTML 
编码 ， 将 虚拟 目录 映射 到 物理 路 径 及 设置 脚本 超时 等 。 
通过 本 章 的 理论 学 习 和 练习 ， 用 户 应 了 解 和 掌握 以 下 内 容 : 
e 了 解 Server 对 象 的 属性 
o 掌握 CreateObject 方法 
掌握 URLEncode 方法 
掌握 Transfer 方法 
e 掌握 Execute 方法 


5.1 认识 Server 对 象 


Server 对 象 提供 对 服务 器 上 的 方法 和 属性 的 访问 ， 其 中 大 多 数 方法 和 属性 是 为 实用 程 
序 的 功能 服务 的 ， 如 表 5-1 所 示 。 


表 5-1 Server 对 象 成 员 


方 ” 法 说 了 明 
CreateObject(objName, 创建 对 象 实体 
HTMLEncode(string HTML 字符 串 编码 
URLEncode(string 路 径 字 符 串 编码 
MapPath(urlString) 取得 绝对 路 径 
Transfer(urlString 转向 至 指定 浏览 网 页 
Execute(urlString) 执行 外 部 网 页 
GetLastError() 取得 Error 对 象 


在 这 些 成 员 中 ， 使 用 最 为 频繁 的 方法 是 CreateObject， 它 使 网 页 可 以 创建 一 个 指定 的 
对 象 ， 同 时 利用 这 个 对 象 进行 所 需 的 相关 操作 。 例 如 ， 制 作 数据 库 的 功能 首先 要 使 用 
CreateObject 方法 创建 所 需 的 ADO 对 象 ,再 创建 其 他 的 方法 包含 改变 网 页 的 文字 输出 格式 ， 
获取 网 页 路 径 等 。 


s> ASP 动态 网 站 开发 教程 (第 三 版 ) 


5.2 Server 对 象 的 属性 


Server 对 象 只 有 一 个 ScriptTimeout 属性 ， 用 于 指定 一 个 脚本 延 时 的 时 间 期 限 。 脚 本 运行 
超过 ScriptTimeout 属性 设置 时 间 将 作 超时 处 理 ， 中 止 没 有 完毕 的 响应 并 提示 超时 错误 信息 。 

可 以 在 IS 的 Intemet 信息 服务 程序 中 为 Web 服务 设置 默认 的 脚本 超时 值 。 如 果 将 默 
认 值 设 为 - 1， 则 脚本 将 永 不 会 过 期 。 如 果 设 置 的 ScriptTimeonut 属性 值 小 于 默认 值 ， 则 以 
默认 值 为 超时 上 限 。 可 以 使 用 下 面 的 语句 来 取得 脚本 的 超时 值 : 

<% TimeOut-Server.ScriptTimeOut %> 

对 于 一 些 脚 本 执行 需 时 过 长 的 特定 页 面 , 也 可 使 用 ScriptTimeout 属性 为 其 设 定 一 个 限 

制 时 间 。 


【练习 5-11 在 网 页 中 随机 显示 一 个 星 号 ， 查 看 限制 时 间 对 页 面 响应 的 限制 作用 ， 程 
序 运行 效果 如 图 5-1 所 示 。 
(1) 创建 一 个 名 为 page.asp 的 网 页 ， 其 代码 如 下 所 示 ( 如 图 5-2 所 示 ): 


<%Server.ScriptTimeOut=150%> 

<% 

For k-1 to 10 

Nextsecond-dateA dd("s". 10.time) 

Do While timecnextsecond 
loop 
starx-starx-- 10*rnd()-1 
For i-1 to starx 
Response. Write ("&nbsp") 
Next 

Response. Write ("*«p»") 

Next 

%> 


(2) 将 page.asp 文件 保存 至 Ci\InetpubWwwwroot X 4F X F. 
(3) 启动 IE 浏览 器 后 ， 在 地 址 栏 中 输入 http://localhost/page.asp 并 按 Enter 键 ， 效 果 如 
图 5-2 所 示 。 


图 5-1 page.asp 的 效果 图 5-2 page.asp 的 代码 
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5.3 Server 对 象 的 方法 


Server 对 象 最 常用 的 方法 是 创建 服务 器 组 件 的 实例 (Server.CreateObject)， 其 他 方法 用 于 
将 URL 或 HTML 编码 成 字符 串 , 将 虚拟 路 径 映 射 到 物理 路 径 , 以 及 设置 脚本 的 超时 期 限 等 。 


5.3.1 CreateObject 方 法 


CreateObject 方 法 是 Server 对 象 的 最 重要 方法 ,用 于 创建 已 注册 到 服务 器 上 的 组 件 的 实例 。 
利用 Server 对 象 的 CreateObject 方法 在 网 页 中 创建 所 要 运用 的 对 象 实体 ， 引 用 
CreateObject 的 语法 如 下 : 


Set objCreate = Server.CreateObject("ObjectID") 
其 中 ，ObjectID 为 所 创建 的 对 象 识别 名 称 ，objCreate 为 存储 此 对 象 的 变量 ， 一 旦 这 行 


程序 代码 执行 完成 后 ,objCreate 便 能 够 使 用 在 该 对 象 的 网 页 之 中 , 就 如 同 ASP 内 建 的 对 象 
一 样 ， 只 是 必须 使 用 objCreate 变量 名 称 取代 对 象 的 识别 ID 。 


5.8.2 HTMLEncode 方法 
浏览 器 通过 解读 HTML 标记 能 显示 各 种 格式 的 文本 ， 但 它 却 显示 不 了 HTML 标记 本 
身 。 如 下 面 的 例子 : 
<% Response.Write(" 回 车 的 HTML 标记 是 : <Br>") %> 
当 执 行 这 个 语句 时 ,浏览 器 会 把 <Br> 自 动 解释 为 回 车 命令 ,浏览 器 上 显示 的 最 终结 果 为 : 
回 车 的 HTML 标记 是 : 
HTMLEncode 方法 用 以 转换 HTML 标记 ， 避 免 这 些 特 定 字 符 被 浏览 器 进一步 作 解 译 。 
HTMLEncode 将 HTML 标记 字符 转换 为 不 由 浏览 器 解释 的 字符 代码 。 如 下 面 的 例子 : 
<% Response.Write Server.HTMLEncode (" 回 车 的 HTML 标记 是 : <Br>") %> 
当 执 行 这 个 语句 时 ， 浏 览 器 上 显示 的 最 终结 果 为 : 
回 车 的 HTML 标记 是 : <Br> 


【练习 5-2】 利 用 HTMLEncode 方法 将 一 个 指定 的 字符 串 按 HTML 的 编码 输出 。 
(1) 创建 一 个 名 为 HTML.asp 的 网 页 ， 其 代码 如 下 所 示 ( 如 图 5-3 所 示 ): 
<html> 
<head> 
<title>HTMLEncode</title> 
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</head> 

«body bgcoloer="#ffffff'> 

<% 
response.write"<b>hello</b><i>world</i>" 


response.write"<p>" 


response.write server.htmlencode("<b>hello</b><i>world</i>") 


response.write"<p>" 

response.write"Nanjing&Beijing" 

response.write"«p-" 

response.write server. URLencode("Nanjing and Beijing") 
%> 

</body> 

</html> 


(2) 将 HTML.asp 文件 保存 至 Ci\Inetpub\Wwwwroot 文件 夹 中 。 
(3) ÈZ) IE 浏览 器 后 ， 在 地 址 栏 中 输入 http://localhost/HTML.asp 并 按 Enter 键 ， 效 果 


如 图 5-4 所 示 。 
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图 5-3 HTML.asp 的 代码 图 5-4 HTML.asp 的 效果 


5.3.3 URLEncode 方法 


URLEncode 方法 按 URL 规则 对 字符 串 进行 编码 。 当 字符 串 数据 以 URL 的 形式 传递 到 
服务 器 时 ， 在 字符 串 中 不 允许 出 现 空格 ， 也 不 允许 出 现 特殊 字符 。 因 此 ， 如 果 希 望 在 发 送 
字符 串 之 前 进行 URL 编码 ， 可 以 使 用 URLEncode 方法 。 例 如 下 面 的 代码 : 

<%Response.Redirect ("http://www.baidu.com/baidu?word="&Server.UrlEncode("ASP 学 习 "))%> 


此 句 将 把 搜索 关键 字 “ASP 学 习 ” 添 加 到 URL 网 址 的 变量 值 中 ， 通 过 重 定向 达到 打 


开 相 关 搜 索 页 面 的 效果 。 此 例 先 将 “学 习 ” 两 个 汉字 更 改 为 URL 通用 的 编 


人 码 %D1%A7%CF%B0， 再 执行 重 定向 操作 就 可 指向 正确 的 网 址 : 


http://www.baidu.com/baidu?word=ASP%D1%A7%CF%BO 
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【练习 5-3】 编 写 ASP 脚本 将 给 出 的 字符 串 翻译 成 可 作为 URL 接受 的 格式 。 
(1) 创建 一 个 名 为 urlasp 的 网 页 ， 其 代码 如 下 所 示 ( 如 图 5-5 所 示 ): 
<% 
dim urlstring 
urlstring-"http://www.xxx.com" 
response.write"<h2> 编 码 前 的 字符 串 如 下 。"&urlstring&"</h2><br>" 
urlstring=Server.URLEncode(urlstring) 
response.write"<h2> 编 码 后 的 字符 串 如 下 。"&urlstring&"</h2>" 
%> 
(2) 将 urlasp 文件 保存 至 Ci\InetpubWwwwroot 文件 夹 中 。 
(3) 启动 正 浏 览 器 后 ， 在 地 址 栏 中 输入 http://localhost/url.asp 并 按 Enter 键 ,效果 如 图 


LAN Dd | 人- 日- é-srao: “| 


编码 前 的 字符 串 如 下 。http://www. xxx. com 


编码 后 的 字符 串 如 下 。http%3A%2F%2Fwww% 
2Exxx%2Ecom 


图 5-5 urLasp 的 代码 图 5-6 urLasp 的 效果 


5.3.4 MapPath 方法 


MapPath 方法 可 以 将 程序 指定 的 相对 或 虚拟 路 径 映 射 到 服务 器 上 相应 的 真实 路 径 上 ， 

其 语法 结构 如 下 : 
Server.MapPath (路 径 ) 

其 中 ， 路 径 指 定 要 映射 到 物理 目录 的 相对 或 虚拟 路 径 。 若 路 径 以 一 个 正 斜 杠 (/) 或 反 斜 
杠 ( 人 开始 ， 则 MapPath 方法 返回 路 径 时 将 路 径 视 为 完整 的 虚拟 路 径 。 若 路 径 不 是 以 斜 杠 开 
始 ， 则 MapPath 方法 返回 同 ASP 文件 中 己 有 路 径 的 相对 路 径 。 

【练习 5-4】 利 用 Server 对 象 的 MapPath 方法 获取 指定 文件 的 绝对 路 径 ， 程 序 运行 效 
果 如 图 5-7 所 示 。 
(1) 创建 一 个 名 为 page2.asp 的 网 页 ， 其 代码 如 下 所 示 ( 如 图 5-8 所 示 ): 


<% 
Response.write(" 目 前 网 页 的 虚拟 位 置 : ") 
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Response.write(request.ServerVariables("PATH INFO")) 
"使 用 服务 器 变量 PATH INFO 映射 当前 文件 的 物理 路 径 
Response.write("<BR>") 

Response.write(" 目 前 网 页 的 绝对 位 置 :") 
Response.write(Server.MapPath("page2.asp")) 

%> 


(2) 将 page2.asp 文件 保存 至 Ci\InetpubWwwwroot X fF X P. 


(3) 启动 正 浏览 器 后 ， 在 地 址 栏 中 输入 http://localhost/page2.asp 并 按 Enter 键 ， 效 果 
如 图 5-7 所 示 。 


NuEUMEEEPEA: B page2. asp - RIF 
EE - XD RED BIV ISV Wo) 


EO MMD STV PARO IAO HO 7| [iesponce.witet"BEFITOEEIGHR. y 
AA [meeunenem. | | R- m omo. | Response write (request -ServerVariables("PATH_IKF0")) 
otro -全 用 及 务 名 实 量 ram meo tiii ssi siena. 

Response ite("<BA)") 

Re: ("目前 网 页 的 绝对 位 置 ，") 

bisoa elt a 


v 


图 5-7 page2.asp 的 效果 图 5-8 page2.asp 的 代码 


注意 : 
MapPath 方法 不 支持 相对 路 径 语法 (.) 或 (..)。 例如 ,使 用 相对 路 径 ../My Webs /MyFile.txt 
将 返回 一 个 错误 。MapPath 方法 不 检查 返回 的 路 径 是 否 正确 或 在 服务 器 上 是 否 存在 。 


5.3.5 Transfer 方法 


Transfer 方法 把 执行 流程 从 当前 的 ASP 文件 转 到 同一 服务 器 上 的 另 一 个 ASP 页 面 。 它 
的 功能 和 Response 对 象 的 Redirect 方法 重 定向 浏览 器 功能 类 似 , 但 两 者 在 工作 原理 上 有 一 
使 用 Response.Redirect 方法 重 定向 操作 的 整个 过 程 中 ， 客 户 端 与 服务 器 要 进行 两 次 来 
的 通信 。 第 一 次 通信 是 对 原始 页 面 的 请 求 ， 得 到 一 个 目标 已 经 改变 的 应 答 ， 第 二 次 通信 
是 请 求 Response.Redirect 指向 的 新 页 面 ， 得 到 重 定向 之 后 的 页 面 。 
使 用 Server.Transfer 方法 时 ， 客 户 端 与 服务 器 只 需 进 行 一 次 通信 ， 它 将 终止 执行 当前 
的 ASP 页 面 , 执行 流程 转 入 另 一 个 ASP 页 面 , 但 新 的 ASP 页 面 仍 使 用 前 一 个 ASP 页 面 创 
建 的 通信 。Transfer 方法 需要 的 网 络 通信 量 较 小 ， 从 而 可 获得 更 好 的 性 能 和 浏览 效果 ， 其 语 
法 结构 如 下 : 
Server.Transfer (URL 地 址 名 称 ) 


IH 
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注意 : 
使 用 Server. Transfer 方法 实现 页 面 之 间 的 跳 转 后 ,浏览 器 中 的 URL 不 会 改变 ， 因 为 重 
定向 完全 在 服务 器 端 进行 


【练习 5-5】 使 用 Server.Transfer 方法 将 一 个 ASP 文件 中 的 内 容 传输 到 另 一 个 ASP X 
件 中 ， 其 程序 运行 效果 如 图 5-9 所 示 。 
(1) 创建 一 个 名 为 page3.asp 的 网 页 ， 其 代码 如 下 所 示 : 
<p> 这 是 第 一 个 页 面 ! </p> 
<% 
Response. Write "当前 的 会 话 编号 为 : "&Session.SessionID&"-Br»" 
Response.Write "下 面 是 执行 Server.Transfer 方法 后 的 结果 "&"<Br>" 
Server. Transfer("test2.asp") 
%> 
(2) 将 page3.asp 文件 保存 至 Ci\InetpubWwwwroot 3L fF X 'P 
(3) 创建 一 个 名 为 test2.asp 的 网 页 ， 其 代码 如 下 所 示 ( 如 图 5-10 所 示 ): 
<p> 这 是 第 二 个 页 面 ! </p> 
<% 
Response.Write "当前 的 会 话 编号 为 : "&Session.SessionID&"<Br>" 
%> 
(4) 将 test2.asp 文件 保存 至 CInetpubwwwroot 文件 夹 中 。 
(5) 启动 IE 浏览 器 后 ， 在 地 址 栏 中 输入 http://localhost/page3.asp 并 按 Enter 键 ， 效 果 
如 图 5-9 所 示 。 


和 
la 


|nesponse. write "PETI E A, “asession-sessiontonn ar" 
lv 


人 


图 5-9 Server.Transfer 的 效果 图 5-10 输入 第 2 个 页 面 代码 


Transfer 方法 在 默认 情况 下 不 会 把 表单 数据 或 查询 字符 串 从 一 个 页 面 传递 到 另 一 个 页 
iij, 把 该 方法 的 第 二 个 参数 设置 成 True 后 , 就 可 以 保留 第 一 个 页 面 的 表单 数据 和 查询 字符 
串 并 加 以 应 用 。 

注意 : 

Transfer 方法 还 可 以 用 来 在 不 同 的 应 用 程序 的 ASP 文件 之 间 传 输 ， 但 传输 后 的 文件 只 
能 访问 作用 于 初始 应 用 程序 的 变量 ， 而 不 访问 文件 实际 上 所 处 的 应 用 程序 的 变量 。 
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5.3.6 Execute 方法 


Execute 方法 用 来 在 当前 的 ASP 页 面 执行 同一 Web 服务 器 上 指定 的 另 一 个 ASP 页 面 。 
当 指定 的 ASP 页 面 执行 完毕 ， 控 制 流程 重新 返回 原 页 面 发 出 Execute 调用 的 位 置 。 

Execute 方法 类 似 于 许多 编程 语言 的 过 程 调用 ， 只 不 过 过 程 调用 是 执行 一 个 过 程 ， 而 
Execute 方法 是 执行 一 个 完整 的 ASP 文件 。 其 语法 结构 如 下 : 


Server.Execute (URL 地 址 名 称 ) 


【练习 5-6】 使 用 Server.Execute 方法 , 在 一 个 ASP 文件 中 调用 执行 另 一 个 ASP 文件 ， 
效果 如 图 5-11 所 示 。 
(1) 创建 一 个 名 为 page4.asp 的 网 页 ， 其 代码 如 下 所 示 ( 如 图 5-12 所 示 ): 


<p> 这 是 第 一 个 页 面 ! </p> 

<% 

Response. Write "当前 的 会 话 编号 为 : "&Session.SessionID&"<Br>" 
Response.Write "下 面 准备 执行 Server.Execute 方法 调用 第 二 个 页 面 "&"<Br>" 
Server.Execute("test2.asp") 

Response. Write "执行 完 Server.Execute 方法 后 返回 到 第 一 个 页 面 "&"<Br>" 


%> 
(2) 将 page4.asp 文件 保存 至 Ci\Inetpub\Wwwwroot ZFR F. 
(3) 创建 一 个 名 为 test2.asp 的 网 页 ， 其 代码 如 下 所 示 : 
<p> 这 是 第 二 个 页 面 的 内 容 ! </p> 
<% 
Response.Write "当前 的 会 话 编号 为 : "&Session.SessionID&"<Br>" 
%> 


(5) 将 test2.asp 文件 保存 至 C:\Inetpubvwwwroot 文件 夹 中 。 
(6) 启动 IE 浏览 器 后 ， 在 地 址 栏 中 输入 http://localhost/page4.asp 并 按 下 Enter， 效 果 如 


[Server Execute SIE | inae 


图 5-11 ServerExecute 的 效果 图 5-12 ”Server.Execute 的 代码 
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注意 : 

使 用 Transfer 方法 或 Execute 方法 时 ， 最 后 得 到 的 页 面 可 能 不 是 合法 的 HIML 页 面 ， 
因为 最 终 返 回 给 客户 端的 页 面 可 能 包含 多 个 <HTML> 和 <BODY> 等 标记 ， 所 以 需要 多 次 对 
页 面 进 行 测 试 。 


5.3.7 GetLastError 方法 


GetLastError 方法 返回 一 个 ScriptError 对 象 ， 用 于 捕捉 当前 ASP 程序 的 运行 错误 并 向 
用 户 返回 有 用 的 信息 ， 如 错误 描述 和 发 生 错误 的 行 号 等 。 其 语法 结构 如 下 : 


Server.GetLastError () 


54 J 题 

5.4.1 填空 题 

(1) Server 对 象 提供 方法 用 以 转换 HTML 标记 ， 避 免 这 些 特定 字符 被 浏览 
器 进一步 作 解 译 。 

(2) Transfer 方 法 把 执行 流程 从 当前 的 ASP 文件 转 到 同一 服务 器 上 的 另 一 个 ASP 页 面 。 
它 的 功能 和 的 重 定向 浏览 器 功能 类 似 ， 但 两 者 在 工作 原理 上 有 一 
定 的 差别 。 

(3) 使 用 Server.Transfer 方法 时 ,客户 端 与 服务 器 只 需 进 行 通信 , 它 将 终止 


执行 当前 的 ASP 页 面 ,执行 流程 转 入 另 一 个 ASP 页 面 ,但 新 的 ASP 页 面 仍 使 用 
创建 的 通信 。 

(4) 返回 一 个 ， 用 于 捕捉 当前 ASP 程序 的 运行 错误 并 向 用 户 
返回 有 用 的 信息 ， 如 错误 描述 和 发 生 错 误 的 行 号 等 。 


5.4.2 选择 题 


(1) Server 对 象 只 有 一 个 属性 ， 用 于 指定 一 个 脚本 延 时 的 时 间 期 限 。 
A. TimeOut B. SessionID 
C. ScriptTimeout D. 以 上 全 是 


Qc  ) 方 法 用 来 在 当前 的 ASP 页 面 执行 同一 Web 服务 器 上 指定 的 另 一 个 ASP 
页 面 。 
A. Abandon B. MapPath 


。98。 ASP 动态 网 站 开发 教程 (第 三 版 ) 
C. Execute D. 以 上 全 是 
5.4.3 ”问答 题 


(1) 简 述 Server 对 象 的 属性 。 
(2) 简 述 Server 对 象 的 方法 


5.4.4 ”操作 题 
(1) 利用 HIMLEncode 方法 将 一 个 指定 的 字符 串 按 HTML 的 编码 输出 。 


D 参考 本 章 练习 的 操作 ， 使 用 Server.Transfer 方法 将 一 个 ASP 文件 中 的 内 容 传输 到 
另 一 个 ASP 文件 中 。 
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组 件 是 包含 可 执行 代码 的 动态 链接 库 (.dlD) 或 可 执行 文件 夹 (.exe), 灵活 地 使 用 各 种 组 件 
是 建立 一 个 强大 的 Web 应 用 程序 的 关键 。ASP 自 带 一 些 基本 组 件 ， 如 ActiveX Data 
Objects(ADO) 和 Ad Rotator 等 ， 直 接 使 用 它们 可 以 高 效 地 完成 各 种 复杂 的 功能 ， 如 数据 库 
访问 、 广 告 旋转 、 文 件 读 取 和 电子 邮件 发 送 等 。 

通过 本 章 的 理论 学 习 和 练习 ， 用 户 应 了 解 和 掌握 以 下 内 容 : 

e 掌握 Ad Rotator 组 件 的 使 用 方法 
掌握 Content Rotator 组 件 的 使 用 方法 
掌握 Content Linker 组 件 的 使 用 方法 
掌握 Browser Capabilities 组 件 的 使 用 方法 
掌握 Counters 组 件 的 使 用 方法 


6.1 创建 组 件 实例 


ActiveX 组 件 是 一 个 存在 于 Web 服务 器 上 的 文件 ， 该 文件 包含 执行 某 项 或 一 组 任务 的 
代码 。 组 件 可 以 执行 公用 任务 ， 这 样 网 站 开发 者 就 不 必 逐 一 去 创建 执行 这 些 任务 的 代码 。 
例如 ， 使 用 一 个 股票 行情 收报 机 组 件 即 可 以 在 Web 页 上 显示 最 新 的 股票 报价 。 

ASP 自 带 有 几 个 基本 组 件 ， 网 站 的 开发 者 还 可 从 第 三 方 开发 商 购买 一 些 已 制作 完成 的 
组 件 ， 直 接 运 用 它们 来 完成 各 种 各 样 的 任务 。 此 外 ， 还 可 用 任何 支持 组 件 对 象 模型 
(COM:Component Object Model) 的 编程 语言 (如 Visual C++、Java、Visual Basic) 来 编写 自己 
的 组 件 。 组 件 是 可 以 重复 使 用 的 , 在 Web 服务 器 上 安装 组 件 后 , 就 可 以 从 ASP 脚本 、ISAPI 
应 用 程序 、 服 务 器 上 的 其 他 组 件 或 另 一 种 COM 兼容 语言 编写 的 程序 中 调用 该 组 件 。 

要 使 用 组 件 提供 的 对 象 ， 首 先 要 创建 对 象 的 实例 并 为 这 个 新 的 实例 分 配 变量 名 。 使 用 
ASP 的 Server.CreateObject 方法 可 以 创建 对 象 的 实例 ， 然 后 可 使 用 脚本 语言 的 变量 分 配 指 
令 为 对 象 实例 命名 。 创 建 对 象 实例 时 ， 必 须 提 供 实例 的 注册 名 称 PROGID。 如 下 例 将 创建 
一 个 Ad Rotator 广告 条 对 象 : 


<% Set MyAds = Server.CreateObject(" MSWC.AdRotator") %> 


注意 : 
必须 使 用 ASP 的 Server.CreateObject 方法 来 创建 对 象 实例 , 否则 ASP 无 法 跟踪 脚本 语 
言 中 对 象 的 使 用 。 
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使 用 HTML<OBJECT> 标 记 同 样 可 以 创建 对 象 实例 ， 但 必须 为 RUNAT 属性 提供 服务 
器 值 ， 同 时 也 要 为 将 在 脚本 语言 中 使 用 的 变量 名 提供 ID 属性 组 。 使 用 注册 名 称 (PROGID) 
或 注册 号 码 (CLSID) 可 以 识别 该 对 象 。 下 面 的 例子 使 用 注册 名 (PROGID) 创 建 Ad Rotator 对 
象 的 实例 : 

< OBJECT RUNAT=Server ID=MyAd PROGID="MSWC.AdRotator"></OBJECT> 


如 表 6-1 所 示 列 出 了 ASP 可 安装 的 常用 组 件 。 


表 6-1 ASP 可 安装 的 常用 组 件 


组 件 名 称 功 能 
Ad Rotator 创建 一 个 AdRotator 对 象 , 该 对 象 可 按 指 定 计划 在 同一 页 上 自动 轮换 显示 广告 
创建 一 个 BrowserType 对 象 , 该 对 象 决定 访问 Web 站 点 的 每 个 浏览 器 的 性 能 、 
Browser Capabilities T 
类 型 及 版 本 
Database Access 提供 用 ActiveX Data Objects (ADO) 对 数据 库 的 访问 
创建 一 个 NextLink 对 象 ， 该 对 象 可 生成 Web 页 内 容 列表 ， 并 像 书 一 样 将 各 页 
Content Linking a 
顺 续 连 接 


File Access 组 件 提供 文件 的 输入 输出 访问 
Collaboration Data | 可 以 快速 、 简 便 地 在 Web 页 上 添加 收发 邮件 功能 。 该 组 件 只 适用 于 Internet 
Objects for NTS 组 件 _| Information Server for Windows NT& Server 

创建 一 个 MyInfo 对 象 ， 该 对 象 追踪 个 人 信息 ， 例 如 站 点 管理 员 的 姓名 、 地 址 


MyInfo 
及 显示 选择 
创建 一 个 Counters 对 象 ， 该 对 象 可 以 创建 、 保 存 、 增 加 或 检索 任意 数量 的 独 
Counters 
立 计数 器 
Content Rotator 自动 翻转 Web 主页 上 的 HTML 内 容 字符 串 
Page Counter 记录 并 显示 Web 页 被 打开 的 次 数 


6.2 利用 Ad Rotator 组 件 制作 网 站 广告 条 


使 用 Ad Rotator 组 件 可 快速 在 网 站 上 建立 一 个 广告 系统 , 允许 在 每 次 访问 ASP 页 面 时 
显示 新 的 广告 ， 并 且 提 供 了 很 强 的 功能 ， 例 如 : 在 页 面 上 旋转 显示 广告 图 像 的 能 力 ， 跟 踪 
特定 广告 显示 次 数 的 能 力 以 及 跟踪 客户 端 在 广告 上 单 击 次 数 的 能 力 。 

要 使 用 Ad Rotator 组 件 的 效果 ， 需 要 用 到 3 个 文件 。AD Rotator 计划 文件 记录 所 有 广 
告 信息 ， 重 定向 文件 对 单 击 广告 条 的 事件 进行 处 理 ， 广 告 显 示 页 面 则 建立 和 显示 广告 条 。 
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6.2.1 创建 Ad Rotator 计划 文件 


Ad Rotator. 组 件 是 通过 读 取 Ad Rotator 计划 文件 来 完成 工作 的 。Ad Rotator 计划 文件 
包括 与 要 显示 的 图 像 文件 的 地 点 有 关 的 信息 以 及 每 个 图 像 的 不 同属 性 ， 下 面 就 是 一 个 标准 
的 AD Rotator 计划 文件 : 


Redirect http://dusiming "广告 被 单 击 后 所 指向 的 文件 

width 400 "以 像素 为 单位 指定 广告 的 宽度 

height 50 "以 像素 为 单位 指定 广告 的 高 度 

border 0 ' 以 像素 为 单位 指定 广告 四 周 的 边框 宽度 
* ' 分 隔 符号 

tupwk.gif. "该 广告 的 图 像 文 件 名 及 位 置 
http://www.tupwk.com "“ 单 击 该 广告 后 要 转 到 的 URL 值 

清华 文康 的 广告 条 "图 像 的 替代 文字 

5 广告 的 显示 频率 ， 频 率 越 高 显示 的 次 数 也 越 多 
wk040723.gif 

http://www.wk.com.cn 

wk 的 招聘 广告 
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Bookhome0722.gif 

http://www.Bookhome.com.cn 

图 书 之 家 
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AD Rotator 计划 文件 由 两 部 分 组 成 。 第 一 部 分 设置 应 用 于 轮换 安排 中 所 有 广告 图 像 的 
参数 ， 第 二 部 分 指定 每 个 单独 广告 的 文件 和 位 置信 息 以 及 应 当 接 收 的 每 个 广告 的 显示 时 间 
所 占 百分比 。 这 两 部 分 由 全 是 星 号 (*) 的 一 行 隔 开 。 

在 第 一 部 分 中 有 4 个 全 局 参数 ， 每 个 参数 都 由 一 个 关键 字 和 值 组 成 。Redirect 行 指 出 
该 广告 链接 到 的 URL 地 址 , 星 号 上 面 的 其 余 3 行 简单 说 明 如 何 显示 广告 。Width 行 和 Height 
行 以 像素 为 单位 指定 网 页 上 广告 的 宽度 和 高 度 ， 默 认 值 是 440 和 60 像素 。Border 行 以 像 
素 为 单位 指定 广告 四 周 超 链 接 的 边框 宽度 ， 默 认 值 为 1 像素 ， 如 果 将 该 参数 设置 为 0， 该 

告 则 将 没有 边框 。 这 4 个 参数 都 是 可 选 的 ， 如 果 用 户 未 指定 它们 的 值 ， 则 Ad Rotator 组 
件 将 使 用 默认 的 值 。 

星 号 下 面 的 第 二 部 分 以 每 4 行为 一 个 单位 描述 每 个 广告 的 具体 内 容 。 每 个 广告 的 描述 
包含 图 像 文件 的 URL、 广 告 的 主页 URIL( 连 字符 “-” 可 指出 该 广告 没有 链接 ) 和 图 像 的 蔡 代 
文字 以 及 指定 该 页 与 其 他 页 交 蔡 显示 频率 的 数值 。 要 确定 广告 显示 的 频率 ， 可 以 将 计划 文 
件 中 所 有 广告 的 权 值 相 加 ,在 该 例 中 总 数 是 30， 那 么 hsbc 的 广告 权 值 为 5， 这 意味 着 每 调 
用 6 次 Ad Rotator 组 件 ， 则 显示 一 次 广告 。 
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6.22 设置 广告 图 像 重 定向 文件 


广告 条 放置 到 网 站 后 ， 用 户 对 广告 条 进行 单 击 操作 后 ，ASP 就 会 打开 重 定向 文件 。 重 
定向 文件 通常 是 用 户 创建 的 文件 ， 包 含 用 来 解析 由 Ad Rotator 对 象 发 送 的 查询 字符 串 的 脚 
本 ,并 将 用 户 重 定向 到 与 用 户 所 单 击 的 广告 所 相关 的 URL。 用 户 也 可 以 将 脚本 包含 到 重 定 
向 文件 中 ， 以 便 统 计 单 击 某 一 特定 广告 的 用 户 数目 ， 并 将 这 一 信息 保存 到 服务 器 上 的 某 一 
文件 中 ， 如 下 例 所 示 : 


<% 

' 将 单 击 情况 记录 到 Web 服务 器 日 志文 件 中 
Response.AppendToLog Request.QueryString("url") 
' 重 定向 到 广告 指定 的 站 点 

Response.Redirect (Request.Querystring("url")) 

%> 


注意 : 

Redirect 行 所 指示 的 不 是 为 广告 本 身 指定 的 URL， 而 是 将 调用 的 中 间 页 面 的 URL。 这 
样 ， 就 可 以 通过 这 个 中 间 页 面 跟 踪 单 击 广告 的 次 数 。 该 Redirect URL 将 与 包含 两 个 参数 的 
查询 字符 串 一 起 调用 特定 广告 主页 的 URL 和 图 像 文件 的 URL。 


6.2.3 创建 网 站 广告 显示 页 面 


如 果 ASP 在 页 面 中 调用 Ad Rotator 组 件 , 首先 必须 使 用 Server.CreateObject 方法 实例 化 
AdRotator 对 象 。Ad Rotator 组 件 的 PROGID 属性 是 MSWC.AdRotator， 完 整 的 代码 如 下 : 


< % Set ad = Server.CreateObject("MSWC.AdRotator") %> 
<%= ad.GetAdvertisement("/ads/adrot.txt") %> 


Ad Rotator 组 件 支持 的 唯一 方法 是 GetAdvertisement， 它 只 有 一 个 参数 AdRotator 是 计 
划 文 件 的 名 称 。 注 意 指 向 文件 的 路 径 是 当前 虚拟 目录 的 相对 路 径 ， 物 理 路 径 是 不 允许 的 。 
GetAdvertisement 方法 从 Rotator 计划 文件 中 获取 下 一 个 计划 广告 的 详细 说 明 并 将 其 格式 
化 为 HIML 格式 。 下 面 的 HTML 由 GetAdvertisement 方法 生成 且 被 添加 到 网 页 的 输出 中 ， 
以 便 显示 Rotator 计划 文件 中 的 下 一 个 广告 。 
<A HREF-"http://zhangshihua?url-http://www.ut.com.cn&image-bookhome0722.gif" > 
<IMG SRC-"bookhome0722.gif" ALT-"[5 152 X" WIDTH-400 HEIGHT-50 BORDER=0></A> 
使 用 Ad Rotator 组 件 还 可 以 直接 通过 对 象 属性 ， 而 不 是 计划 文件 中 的 设置 来 直接 控制 
某 些 广告 特性 ， 其 可 用 属性 如 下 。 
* Border 属性 : 指定 广告 边框 的 大 小 。 
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e Clickable 属性 : 指定 广告 是 否 有 与 之 相关 联 的 超级 链接 。 默 认 值 为 True， 表 示 有 
相关 联 的 超级 链接 。 
* TargetFrame 属性 : 指定 要 打开 与 广告 相关 联 的 超级 链接 的 框架 名 称 。 


【练习 6-1】 创 建 一 个 显示 广告 条 的 页 面 。 
(1) 将 如 图 6-1 所 示 的 3 幅 gif 图 片 文件 复制 至 C:\netpub\vwwwroot 文件 夹 中 。 


00 
Baid BE Nan | 


lgif 2.gif 3.gif 
图 6-1 图 片 效果 


(2) 创建 一 个 名 为 adrot.txt 的 文件 ， 其 代码 如 下 所 示 : 


Redirect adredir.asp 
width 100 

height 50 

border 0 

* 

1.gif 
http://www.baidu.com 
百度 搜索 

$ 

2.gif 
http:;//www.sina.com 
新 浪 网 站 

15 

3.gif 
http://www.sohu.com 
搜狐 网 站 

10 


(3) 将 adrottxt 文件 保存 至 C:\Inetpubvwwwroot 文件 夹 中 。 
(4) 创建 一 个 名 为 adrotasp 的 文件 ， 其 代码 如 下 所 示 : 
<HTML> 
<body> 
<%set myad=Server.CreateObject("MSWC.adrotator") 
myad.Border = 0 


二 


myad.Clickable = true 

myad.TargetFrame = AdFrame 
%> 
<%=myad.getadvertisement("/adrot.txt")%> 
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«HR SIZE-"1" COLOR="#000000"> 

<Center><A HREF="adrot.asp"> 重 新 刷新 本 页 </A></center> 
</BODY> 

</HTML> 


(5) 将 adrot.asp 文件 保存 至 Ci:\Inetpub\Wwwwroot X fF X F. 
(6) 启动 下 浏览 器 后 ， 在 地 址 栏 中 输入 http;/localhost/adrot.asp 并 按 Enter 键 ， 网 页 效 
果 将 如 图 6-2 所 示 (用 户 每 刷新 一 次 网 页 ， 浏 览 器 将 显示 不 同 的 网 站 标志 )。 


FETTTEHS 


Aw IAV WU 
FO eeu. | 


Batoe 


图 6-2 adrotasp 的 效果 


(7) 重新 创建 adrot.asp 文件 ， 其 代码 如 下 所 示 : 
<% 
"将 单 击 情况 记录 到 Web 服务 器 日 志文 件 中 
Response.AppendToLog Request.QueryString("url") 
' 重 定向 到 广告 指定 的 站 点 
Response.Redirect (Request.Querystring("url")) 
%> 
(8) 将 上 面 创建 的 adrot.asp 文件 保存 至 C:\Inetpubvwwwroot 文件 夹 中 。 这 时 ， 如 果 用 
户 运 行 该 文件 ， 并 再 次 单 击 图 6-2 所 示 网 页 中 的 网 站 广告 图 片 ， 浏 览 器 将 会 自动 跳 转 到 相 
关 的 网 站 ， 如 图 6-3 所 示 。 


重新 创建 后 的 效果 
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6.3 利用 Content Rotator 组 件 自动 切换 内 容 


Content Rotator 组 件 通 过 读 取 计划 文件 来 完成 网 页 内 容 的 显示 ， 通 常 是 自动 轮换 显示 
一 些 HTML 内 容 。 当 用 户 请 求 Web 页 时 ，Content Rotator 组 件 从 内 容 计 划 文 件 中 取得 待 显 
示 的 内 容 。 待 显示 内 容 可 以 是 HTML 能 够 表达 的 任何 内 容 ， 包 括 文本 、 图 像 和 超 链接 等 。 

内 容 计划 文件 是 一 个 文本 文件 ， 提 供 要 使 用 的 各 个 文本 字符 串 的 列表 ， 每 个 要 显示 的 
列表 部 分 以 两 个 百 分 号 开始 ， 格 式 如 下 : 

%% [# 权重 ] [// 注 释 ] 


待 轮换 显示 的 内 容 
权重 设置 了 每 个 条 目 出 现在 返回 页 面 中 的 频率 列表 的 显示 频率 , 取 值 范围 为 0-65 535, 
默认 值 为 1。 


Content Rotator 组 件 有 ChooseContent 和 GetAllContent 两 个 方法 。ChooseContent 方法 

用 于 从 内 容 计 划 文 件 中 得 到 一 项 显示 内 容 , 而 GetAllContent 方法 用 于 显示 内 容 计划 文件 中 
的 所 有 内 容 。 

【练习 6-2 创建 一 个 从 可 选 列 表 中 随机 显示 内 容 的 页 面 ,程序 运行 效 
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果 如 图 6-4 所 示 。 
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图 6-4 网 页 效果 


(1) 将 如 图 6-5 所 示 的 图 片 文件 t1.asp、t2.asp\t3.asp 和 t4.asp 复制 至 C:\Inetpubvwwwroot 
RRP. 


tl.asp t2.asp t3.asp 
图 6-5 图 片 效果 


(2) 创建 一 个 名 为 “6-2- 内 容 随机 显示 .asp” 的 文件 ， 其 代码 如 下 所 示 : 


%% #1 
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' 显示 阿尔 伯 特 龙 

«A Href-"6-2-1.asp"7«Img Src-"tl.gif" Border=0></A> 

«p» DI A8 EIER £r SE ^16, (Rr d) 8 SHEAR. AACN RRRA, d 
估计 ， 短 距离 内 可 达 时 速 30 多 公里 。 阿 尔 伯 特 龙 的 可 怕 之 处 还 在 于 它 的 嘴巴 特别 大 ， 里 边 排 满 
了 尖 利 的 牙齿 ， 能 咬 穿 坚硬 的 骨头 ， 更 不 用 说 其 他 恐龙 的 厚 皮 了 。</P> 

%% #2// 显 示 梁 龙 

%%// 再 加 一 行 注释 

%%// 第 三 行 注释 

«A Href="6-2-2.asp"><Img Src-"t2.gif" Border=0></A> 

<p> 梁 龙 又 高 又 长 ， 简 直 就 像 一 幢 楼 房 。 按 说 身躯 如 此 庞大 的 梁 龙 ， 体 重 也 应 该 不 轻 ， 可 实际 
上 它们 只 有 10 多 吨 重 。 原 来 ， 梁 龙 的 骨头 非常 特殊 ， 不 但 骨头 里 边 是 空心 的 ， 而 且 还 很 轻 。 因 
此 ， 梁 龙 这 样 的 庞然大物 就 不 会 被 自己 巨大 的 身 稻 压 垮 了 。</P> 

%% #4// 显 示 慈 母 龙 

«A Href="6-2-3.asp"><Img Src-"t3.gif" Border=0></A> 

«p» 8E REJE REX EAE 25 NE, X 25 只 小 丽 龙 每 天 要 吃 掉 几 百 斤 鲜嫩 的 植物 ， 慈 母 龙 需要 不 辞 
劳苦 地 到 处 寻找 食物 。 如 果真 是 这 样 的 话 ， 它 们 是 无 愧 于 慈母 龙 这 个 称号 的 。</P> 

%% #5// 显 示 剑 龙 

«A Href="6-2-2.asp"><Img Src-"t4.gif" Border=0></A> 

<p> 剑 龙 背 上 长 着 许多 骨 板 。 这 些 骨 板 里 面 充 满 空隙 ， 表 面 还 有 很 多 沟 槽 ， 这 些 空隙 和 沟 槽 里 
布 满 了 血液 。 当 气温 降低 时 ， 剑 龙 就 会 张 开 骨 板 ， 吸 收 阳光 的 热量 ， 气 温 升 高 时 ， 又 会 将 骨 板 
转 一 下 ， 利 用 凉 风 散热 。</P> 


(3) 选择 “文件 ”|“ 另 存 为 ”命令 ， 将 上 面 输入 的 代码 以 文件 名 “6-2- 内 容 随机 显示 ” 
保存 至 C:\Inetpub\vwwwroot X fF X F. 
(4) 在 记事 本 工具 中 重新 输入 以 下 代码 : 


<Html> 

<Head> 

<Title> 

随机 目录 条 

</Title> 

</Head> 

<Body> 

一 ---------- 本 页 面 是 随机 显示 的 内 容 ， 刷 新 后 显示 结果 会 变化 ----------- <br> 
<% 

set NextTip=Server.CreateObject("MSWC.ContentRotator") 


%> 

<%=NextTip.ChooseContent("6-2- 内 容 随 机 显示 .TXT")%> 

<br> 

一 -一 一 -一 一 一 <A Hre 人 f="6-2- 内 容 随 机 显示 .asp"> 刷 新 </A>--------------------------- 
</Body> 

</Html> 


(5) 将 “6-2- 内 容 随 机 显示 .asp” 文 件 保存 至 C:\Inetpub\vwwwroot X fF X F. 
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(6) 启动 正 浏 览 器 后 ,在 地 址 栏 中 输入 http://localhost/6-2- 内 容 随 机 显示 .asp 并 按 Enter 
键 ， 网 页 效果 将 如 6-4 所 示 。 

注意 : 

如 果 将 “6-2- 内 容 随机 显示 .asp” 程 序 脚本 修改 为 如 下 所 示 ， 运 行 ASP 网 页 后 会 发 现 
context.txt 所 有 内 容 被 解释 执行 ， 并 且 分 类 之 间 会 自动 添加 <hr> 水 平 线 ， 如 图 6-6 所 示 。 


<Html> 

<Head> 

<Title> 

随机 目录 条 

</Title> 

</Head> 

<Body> 

------------ 本 页 面 是 随机 显示 的 内 容 ， 刷 新 后 显示 结果 会 变化 ----------- <br> 
<% 

set NextTip=Server.CreateObject("MSWC.ContentRotator") 
%> 

<%=NextTip.GetAllContent("6-2- 内 容 随机 显示 .TXT")%> 
<br> 


</Body> 
</Html> 
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7/ 显示 阿尔 伯 特 龙 
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Kle6 网 页 效果 


6.4 ”使 用 Content Linker 组 件 建立 页 面 索 引 


Content Linker 组 件 可 在 一 系列 相互 关联 的 页 面 中 建立 一 个 目录 表 , 在 它们 中 间 建 立 动 
态 链接 ,并 自动 生成 和 更 新 目录 表 及 先前 和 后 续 的 Web 页 的 导航 链接 。 该 组 件 常用 于 需要 
建立 大 量 页 面 为 访问 者 提供 导航 ， 例 如 联机 报刊 、 电 子 读物 网 站 以 及 论坛 邮件 等 。 
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6.4.1 使 用 Content Linker 组 件 创建 列表 文件 


要 使 用 Content Linker 组 件 ， 必 须 首先 创建 一 个 列表 文件 。Content Linker 组 件 正 是 通 

过 读 取 这 个 文件 来 获得 处 理 链接 的 所 有 页 面 的 信息 。 列 表 文 件 都 是 纯 文 本 格式 的 ， 如 下 例 
所 示 : 

Xajh0l.asp 第 一 


Xajh02.asp 第 二 
Xajh03.asp 第 三 


Xajh40.asp 第 四 十 章 曲 谐 
Xajh41.asp 后 记 


在 列表 文件 中 , 第 一 列 URL 是 与 页 面相 关 的 超 链 接地 址 , 第 二 列 是 在 网 页 上 显示 的 链 
接 描 述 ， 并 且 这 两 列 必须 用 Tab 键 来 隔 开 。 


注意 : 
列表 文件 中 的 URL 地 址 是 虚拟 或 相对 的 ， 只 能 引用 本 地 服务 器 上 的 文件 。 如 果 以 
http://、// 或 \ 开 头 ， 则 不 被 支持 ， 也 不 被 处 理 。 


6.4.2 ”使 用 Content Linker 组 件 的 方法 


下 面 列 出 了 Content Linker 组 件 所 有 可 使 用 的 方法 ， 如 表 6-2 所 示 : 


表 6-2 Content Linker 组 件 的 方法 
组 件 方法 
GetListCount( 目 标 文件 名 ) 
GetListIndex( 目 标 文件 名 ) 
GetNextDescription( 目 标 文 件 名 ) 
GetNextURL( 目 标 文件 名 ) 


显示 组 件 中 包含 的 链接 的 文件 数目 

显示 当前 页 在 这 些 链接 文件 中 的 前 后 位 置 索引 值 
显示 链接 文件 中 下 一 个 文件 的 描述 

示 链 接 文件 中 下 一 个 文件 的 URL 地 址 


GetNthDescription( 目 标 文件 名 . N) 显示 链接 文件 中 第 N 个 网 页 的 描述 
GetNthURL( 目 标 文件 名 , N) 显示 链接 文件 中 第 N 个 网 页 的 文件 URL 地 址 
GetPreviousDescription( 目 标 文 件 名 ) 显示 链接 文件 中 前 一 个 文件 的 描述 


GetPreviousURL( 目 标 文件 名 ) 显示 链接 文件 中 前 一 个 文件 的 URL 地 址 
【练习 6-3 】 使 用 Content Linker 组 件 从 列表 文件 中 创建 一 个 图 书目 录 表 ， 程序 运行 效 
果 如 图 6-7 所 示 。 
(1) 创建 一 个 名 为 list.txt 的 文件 ， 其 代码 如 下 所 示 : 


(2) 
(3) 


Xajh01.asp 第 一 章 灭门 
Xajh02.asp 第 二 章 聆 秘 
Xajh03.asp 第 三 章 救 难 
Xajh04.asp 第 四 章 坐 斗 
Xajh05.asp 第 五 章 治 伤 
Xajh06.asp 第 六 章 洗手 
Xajh07.asp 第 七 章 授 谱 
Xajh08.asp 第 八 章 面壁 
Xajh09.asp 第 九 章 邀 客 
Xajh10.asp 第 十 章 传 剑 
Xajhllasp 第 十 一 章 RA 
Xajhl2.asp 第 十 二 章 围攻 
Xajh13.asp 第 十 三 章 学 琴 
Xajhl4.asp 第 十 四 章 论 杯 
Xajh15.asp 第 十 五 章 HEZ 
Xajh30.asp 
Xajh3l.asp 第 
Xajh32.asp 
Xajh33.asp $ 
Xajh34.asp 第 三 十 四 章 夺 帅 
Xajh35.asp 第 三 十 五 章 复仇 
Xajh36.asp 第 三 十 六 章 伤 逝 
Xajh37.asp $ 
Xajh38.asp 第 三 十 八 章 RIF 
Xajh39.asp 第 三 十 九 章 拒 盟 
Xajh40.asp 第 四 十 章 。” 曲 谐 
Xajh41.asp 后记 


将 listtxt 文件 保存 至 C:\Inetpub\vwwwroot X fF X F. 
创建 一 个 名 称 listasp 的 文件 ， 其 代码 如 下 所 示 (如 图 6-8 所 示 ): 


<Html> 
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<Title> 金 庸 小 说 《 笑 傲 江湖 》 图 书目 录 </Title> 
<Center><H1> 笑 傲 江湖 </H1></Center> 


<Hi><UP> 


<%Set ML = Server.CreateObject("MSWC.Nextlink")%> 


<% 


intCount = ML.GetListCount("list. TXT") 


Fori= 1 To intCount 
%> 
<Li> &nbsp&nbsp 


«a href="<%=ML.GetNthURL("list.TXT", i) %>"> 
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<%=ML.GetNthDescription("list. TXT", i) %> 
</a> 

<Br> 

<%Next%> 

</UL> 


(4) 将 list.asp 文件 保存 至 CInetpubwwwroot X fF X v. 
(5) 启动 正 浏 览 器 后 ,在 地 址 栏 中 输入 http//localhost/list.asp 并 按 Enter 键 ， 网 页 效果 
将 如 6-7 所 示 。 


TAS ww 
wh pamavsm 从 -日 827w- 


笑 做 江湖 


Hipan a 
图 6-7 listasp 的 效果 图 6-8 listasp 的 代码 


(6) 将 如 图 6-9 所 示 的 网 页 文件 (Xajh01.asp ~ Xajh41.asp) 复 制 至 CMInetpubwwwroot X 
fv. 

(7) 在 浏览 器 中 单 击 list.asp 页 面 中 对 应 的 目录 名 即 可 打开 相应 的 内 容 页 面 ， 如 图 6-10 
所 示 。 


图 6-9 复制 网 页 文件 图 6-10 打开 网 页 


6.5 ”使 用 Browser Capabilities 组 件 建立 页 面 索引 


Browser Capabilities 组 件 用 于 检测 客户 端 浏览 器 的 能 力 。 通 过 该 组 件 ， 可 以 知道 浏览 
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器 的 名 称 、 版 本 ， 以 及 是 否 支 持 框架 、ActiveX 控件 、Cookie 和 脚本 程序 等 。 

Browser Capabilities 组 件 的 工作 原理 如 下 : 当 客 户 端 浏 览 器 向 服务 器 发 送 页 面 请 求 时 
会 自动 发 送 一 个 User Agent HTTP 标题 ， 而 该 标题 是 一 个 声明 浏览 器 及 其 版 本 的 ASCII 字 
符 串 。 而 Browser Capabilities 组 件 就 将 User Agent 映射 到 文件 Browscap.ini 中 所 注 明 的 浏 
览 器 ， 并 通过 BrowserType 对 象 的 属性 来 识别 客户 浏览 器 。 

若 该 对 象 在 browscap.ini 文件 中 找 不 到 与 该 标题 匹配 的 项 ， 那 么 将 使 用 默认 的 浏览 器 
属性 。 若 该 对 象 既 未 找到 匹配 项 且 browscap.ini 文件 中 也 未 指定 默认 的 浏览 器 设置 ， 则 它 
将 每 个 属性 都 设 为 字符 串 UNKNOWN. 

在 默认 情况 下 ，browscap.ini 文件 被 存放 在 CAWINDOWS system32Nnetsrv 目录 中 ,用 
户 可 以 编辑 这 个 文本 文件 ， 以 添加 属性 或 根据 最 新 发 布 的 浏览 器 版 本 的 更 新 文件 来 修改 该 
xt. 

Browser Type 对 象 包含 的 属性 如 表 6-3 所 示 。 


表 6-3. Browser Type 对 象 的 属性 


属 性 说 m" 
Browser 指定 浏览 器 的 名 称 
Version 指定 浏览 器 的 版 本 号 
Majorver 指定 主 版 本 号 
Minorver 指定 副 版 本 号 
Frames 指定 浏览 器 是 否 支持 框架 
Tables 指定 浏览 器 是 否 支持 表格 
Cookies 指定 浏览 器 是 否 支持 Cookie 
Backgroundsounds 指定 浏览 器 是 否 支 持 背景 音乐 
VBScript 指定 浏览 器 是 否 支 持 VBScript 
JavaScript 指定 浏览 器 是 否 支 持 JScript 
JavaApplets 指定 浏览 器 是 否 支持 Java 小 程序 
ActiveXControls 指定 浏览 器 是 否 支 持 ActiveX 控件 
Beta 指定 浏览 器 是 否 是 测试 版 
Cdf 指定 浏览 器 是 否 支持 频道 定义 文件 


【练习 6-4】 使 用 Browser Capabilities 组 件 检测 浏览 器 的 常用 属性 ， 程 序 运 行 效果 如 
图 6-11 所 示 。 
(1) 创建 一 个 名 为 Browser.asp 的 文件 ， 其 代码 如 下 所 示 ( 如 图 6-12 所 示 ): 
<Center><H1> 您 的 浏览 器 性 能 如 下 : </H1></Center> 
<Hr> 
<%set bc=server.CreateObject("mswc.browsertype”")%> 
<%if bc.frames=true then%> 浏 览 器 支持 多 窗口 (frames) 显 示 
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<%else%> 浏 览 器 不 支持 多 窗口 (frames) 显 示 

<%end if%><br> 

<%if bc.backgroundsounds=true then%> 浏 览 器 可 以 播放 背景 音乐 (backgroundsounds) 
<%else%> 浏 览 器 不 能 播放 背景 音乐 (backgroundsounds) 
<%end if%><br> 

<%if bc.tables-true then%> 浏 览 器 支持 表格 (tables) 显 示 
<%else%> 浏 览 器 不 支持 表格 (tables) 显 示 

<%end if%><br> 

<%if bc.beta-true then%> 您 的 浏览 器 是 一 测试 版 (beta) 
<%else%> 你 的 浏览 器 是 一 正式 版 

<%end if%><br> 

<%if bc.activexcotrols=true then %> 浏 览 器 支持 active 控制 
<%else%> 浏 览 器 不 支持 active 控制 

<%end if%><br> 

<%if bc.cookies=true then%> 浏 览 器 支持 cookie 功能 
<%else%> 浏 览 器 不 支持 cookie 功能 

<%end if%><br> 

<%if bc.vbscript-true then%> 浏 览 器 支持 vbscript 
<%else%> 浏 览 器 不 支持 vbscript 

<%end if?o» «br» 

<%if bc.jscript-true then%> 浏 览 器 支持 jscript 
<%else%> 浏 览 器 不 支持 jscript 

<%end if%> 


(2) 将 Browser.asp 文件 保存 至 C:\Inetpubvwwwroot 文件 夹 中 。 
(3) 启动 IE 浏览 器 后 ， 在 地 址 栏 中 输入 http://localhost/Browser.asp 并 按 Enter 键 ， 网 
页 效果 将 如 6-11 所 示 。 


Bat 


您 的 浏览 器 性 能 如 下 : 


图 6-11 Browser.asp 的 效果 图 6-12 Browser.asp 的 代码 


6.6 ”使 用 Counters 组 件 制作 计数 器 


Counters 组 件 用 于 创建 Counters 对 象 ， 该 对 象 可 创建 一 个 或 多 个 计数 器 ， 这 些 计 数 器 
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用 于 跟踪 某 一 网 页 或 某 一 网 站 访问 次 数 的 信息 。 一 个 计数 器 包含 一 个 整数 的 持久 值 ， 一 旦 
创建 了 计数 器 ， 它 将 一 直 持续 下 去 直到 被 删除 为 止 。 
Counters 对 象 有 4 个 方法 ， 如 表 6-4 所 示 。 


表 6-4 Counters 对 象 的 方法 


5 X 说 — 

Get 用 于 返回 计数 器 的 当前 值 ， 如 果 计 数 器 不 存在 ， 则 创建 一 个 计数 器 并 将 值 设 为 0 
Increment | 使 计数 器 的 值 递增 1， 如 果 计 数 器 不 存在 ， 则 创建 一 个 计数 器 并 将 值 设 为 1 

Set 将 计数 器 的 值 设 为 指定 的 值 ， 如 果 计 数 器 不 存在 ， 则 创建 一 个 计数 器 并 将 值 设 为 指定 值 
Remove 从 Counter 对 象 中 删除 一 个 计数 器 


-个 站 点 只 能 创建 一 个 计数 器 组 件 ， 但 该 组 件 可 以 有 多 于 一 个 的 计数 器 。Counters 对 
象 通常 是 在 Globalasa 文件 中 用 以 下 命令 创建 的 : 


«OBJECT RUNAT=Server SCOPE-Application ID=Counter PROGID="MSWC.Counters"> 
</OBJECT> 


注意 : 
计数 器 不 受 作用 域 限制 。 一 旦 创建 了 计数 器 ， 那 么 站 点 上 的 任何 页 都 可 以 检索 和 控制 
它 的 值 。 


【练习 6-5】 使 用 Counters 组 件 创建 一 个 投票 计数 器 ， 程 序 运行 效果 如 图 6-13 所 示 。 
(1) 创建 一 个 名 为 remove.asp 的 文件 ， 其 代码 如 下 所 示 : 


<% 
Set Counters-Server.Createobject("MSWC.Counters") 
vote — Request.QueryString("site") 
clear = Request.QueryString("clear") 
Counters.Increment(vote) 
If Not clear-"" Then 
Counters.Remove("z/j ff Hr") 
Counters.Remove(" € tf Hr") 
Counters.Remove(" (C £i Hr") 


End If 
%> 
您 最 喜欢 哪 种 类 型 的 电影 ， 请 投票 : 
<Hr> 


«FORM NAME-"filmtype" METHOD-"GET" ACTION-"remove.asp" 
«Input type-"RADIO" NAME-"site" VALUE=" 动 作 片 "> 动作 片 

<Input type="RADIO" NAME="site" VALUE=" 爱 情 片 "> 爱情 片 

<Input type="RADIO" NAME-"site" VALUE=" 伦 理 片 "> 伦理 片 
<Br><Br><INPUT TYPE-"SUBMIT" VALUE=" 我 要 进行 投票 "> 
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</FORM> 

<H> 

当前 的 投票 结果 :<BR> 

动作 片 : <% =Counters.Get(" 动 作 片 ") %><BR> 

爱情 片 : <% =Counters.Get(" 爱 情 片 ") %><BR> 

伦理 片 : <% =Counters.Get(" 伦 理 片 ") %> 

<FORM NAME="Clear Counters" METHOD-"GET" ACTION='"remove.asp"> 
<INPUT TYPE-"SUBMIT" VALUE=" 重 新 计 票 " NAME-"clear" 

</FORM> 


(2) 将 remove.asp 保存 至 C:\Inetpubvwwwroot 文件 夹 中 。 

(3) 启动 下 浏览 器 后 ,在 浏览 器 地 址 栏 中 输入 http://localhost/remove.asp 并 按 Enter ^t, 
网 页 效果 将 如 图 6-13 所 示 。 

(4) 在 remove.asp 页 面 中 选中 投票 的 单 选 按 钮 后 ， 单 击 “ 我 要 进行 投票 ”按钮 ， 页 面 
将 自动 将 投票 结果 显示 在 网 页 的 “当前 投票 结果 ”选项 区 域 中 (如 图 6-14 所 示 )。 单 击 页 面 
中 的 “重新 计 票 ”按钮 ，ASP 网 页 将 自动 清空 “当前 投票 结果 ”选项 区 域 中 的 投票 结果 。 


IND ser Sio MRO IAD WAS INO BED FEO MERU TAT WAS 
LIC R-B 4-280. M EE- Drise .2 


您 果 喜 次 哪 种 类 型 的 电影 ， 请 投票 


OREH ORB Of ORE OR Of 
CE LLL] 


meu 
En 


EH 0 
fi: 0 
Em 


图 6-13 ”remove.asp 的 效果 图 6-14 显示 投票 结果 


6.7 ”使 用 Page Counter 组 件 


Page Counter 组 件 用 于 创建 PageCounter 对 象 ， 该 对 象 用 来 记录 和 显示 Web 页 被 打开 
的 次 数 。 每 隔 一 定 的 时 间 ， 此 对 象 将 当前 的 页 面 访问 次 数 写 入 一 个 文本 文件 ， 这 样 就 可 以 
保证 数据 不 会 在 服务 器 关机 时 丢失 。Page Counter 组 件 使 用 一 个 内 部 Central Management 
对 象 来 记录 应 用 程序 中 每 一 页 被 打开 的 次 数 。 

PageCounter 对 象 有 3 个 方法 : Hits, PageHit 和 Reset。 其 中 ，Hits 方法 显示 指定 的 网 
页 被 打开 的 次 数 ，PageHit 方法 使 当前 页 面 的 访问 次 数 增加 一 次 ，Reset 方法 将 指定 的 网 页 
的 访问 次 数 重 置 为 0。 


【练习 6-6】 使 用 PageCounter 对 象 跟踪 访问 者 的 个 数 并 发 送 特定 的 消息 给 第 1000 个 
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访问 者 ， 效 果 如 图 6-15 所 示 。 
(1) 创建 一 个 名 为 Counter.asp 的 文件 ， 其 代码 如 下 所 示 : 


<% 
Set MyPageCounter = Server.CreateObject("MSWC.PageCounter") 
HitMe = MyPageCounter.Hits 
If HitMe = 1000 Then 
%> 
祝贺 您 ， 您 是 第 一 千 个 访问 者 ! <BR> 
<% Else %> 
欢迎 您 ， 你 是 第 #<%= HitMe %> 个 访问 者 «BR» 
<% End If %> 
<%MyPageCounter.PageHit%> 


(2) 将 Counter.asp 文件 保存 至 C:\Inetpub\wwwroot 文 件 夹 中 。 

(3) 启动 正 浏览 器 后 ,在 地 址 栏 中 输入 http://localhost/Counter.asp 并 按 Enter 键 ， 网 页 
效果 将 如 图 6-16 所 示 。 

(4) 当 Counter.asp 页 面 被 第 1000 个 访问 者 打开 时 ， 将 显示 如 图 6-15 所 示 的 页 面 。 


REECIEUETTEST 


EIE 
sav saw IA mu 
wenemew | | Re D e mw 


RAS. CAP-TNIFH 


图 6-15 ”第 1000 个 访问 者 打开 的 页 面 图 6-16 Counterasp 的 效果 


6.8 ”使 用 Permission Checker 组 件 


Permission Checker 组 件 创 建 一 个 PermissionChecker 对 象 , 该 对 象 使 用 IIS 提供 的 密码 
验证 协议 来 确认 用 户 是 否 有 权限 读 取 某 个 文件 .PermissionChecker 对 象 只 有 一 个 HasAccess 
方法 ， 该 方法 决定 用 户 是 否 有 权 访 问 某 个 指定 的 文件 。 如 下 例 所 示 : 

<% Set pmck = Server.CreateObject("MSWC.PermissionChecker") %> 
Physical Path Access = <%= pmck.HasAccess("c:\pages\abc\default.htm") %> 
"该 路 径 是 一 个 网 页 、 文 件 或 资源 的 物理 或 虚拟 路 径 

Virtual Path Access = <%= pmck.HasAccess("/abc/default.htm") %> 
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注意 : 

可 以 使 用 PermissionChecker 对 象 来 定制 网 页 ,这 些 网 页 中 仅 包 含 当前 用 户 允 许 访问 的 
资源 的 链接 。 这 项 技术 可 用 来 隐藏 限制 访问 的 网 页 和 资源 ， 可 以 使 被 限制 的 访问 者 不 知道 
这 些 资源 的 存在 。 


IIS 支持 匿名 、 基 本 和 集成 Windows 3 类 密码 验证 方法 。 当 启用 匿名 验证 时 ， 用 户 不 
需要 输入 用 户 名 或 密码 就 可 以 访问 站 点 的 公共 区 域 。 所 有 用 户 初始 时 都 在 IS 的 匿名 用 户 
账号 下 登录 ,因为 匿名 用 户 都 享有 相同 的 账号 , 所 以 当 允 许 匿名 访问 时 , Permissions Checker 
组 件 将 无 法 确定 单个 用 户 的 身份 。 

基本 验证 提示 用 户 输入 用 户 名 和 密码 ， 但 密码 用 明文 发 送 ， 优 点 在 于 它 是 HTTP 规范 
的 一 部 分 并 被 大 多 数 浏 览 器 支持 ， 缺 点 是 浏览 器 使 用 基本 验证 是 以 未 加 密 的 形式 传输 密码 
的 , 这 样 通过 监视 网 络 通信 , 其 他 人 就 可 以 非常 容易 地 用 某 些 通用 工具 来 截取 和 破解 密码 。 

集成 Windows 验证 是 一 种 安全 的 验证 ， 因 为 用 户 名 和 密码 不 通过 网 络 发 送 , 用 户 浏 览 
器 通过 与 服务 器 进行 密码 交换 来 证 明 其 知晓 密码 。 

使 特定 的 ASP 网 页 拒绝 匿名 访问 有 两 种 方法 : 一 种 是 在 Windows 资源 管理 器 中 ， 右 
击 相应 的 ASP 文件 ， 从 弹出 的 快捷 菜单 中 选择 “属性 ”命令 ， 再 在 “安全 ”选项 卡 中 设置 
该 文件 允许 哪些 用 户 访问 ; 另 一 种 是 在 ASP 脚本 中 检查 环境 变量 LOGON_USER 是 否 为 空 ， 
如 果 为 空 ， 表 示 当 前 用 户 是 匿名 用 户 。 


6.9 ”使 用 MyInfo 组 件 


MyInfo 组 件 可 创建 一 个 MyInfo 对 象 ， 该 对 象 跟踪 Web 站 点 所 有 者 的 个 人 信息 ， 如 经 
营 Web 站 点 的 组 织 名 称 、 地 址 及 Web 站 点 的 设置 ，Web 站 点 是 否 有 guest book。 

每 个 站 点 只 能 创建 一 个 MyInfo 对 象 ， 只 需 创建 一 个 简单 的 MyInfo 组 件 的 实例 就 可 以 
fii Web 网 站 上 的 所 有 页 面 均 能 获得 其 信息 。 通 常 是 在 Globalasa 文件 中 用 以 下 命令 来 创建 
MyInfo 对 象 : 


«OBJECT RUNAT=Server SCOPE=Session ID-MyInfo PROGID="MSWC.MyInfo"> 
</OBJECT> 


创建 MyInfo 对 象 后 ， 它 的 属性 值 保 存在 文本 文件 myinfo.xml 中 。myInfo.xml 默认 的 
保存 位 置 是 C:\*WINDOWS\system32\inetsrv。 
MyInfo 组 件 默 认 没 有 属性 和 方法 ， 用 户 可 根据 需要 自行 添加 。 如 下 例 : 


<% 

objMyInfo.MyManager = "zhangshihua" 
objMyInfo.MyPhoneExtension = "03766123456" 
%> 
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属性 添加 完成 后 ， 可 用 别 的 页 面 对 其 进行 调用 和 取 值 。 这 种 不 需要 Session 对 象 在 两 
个 页 面 请 求 之 间 存 储 值 的 方法 ， 为 将 来 可 能 改变 的 数值 提供 了 一 个 存储 区 域 。 采 用 这 些 值 
的 页 面 将 会 在 下 次 运行 时 自动 地 采集 这 些 变化 的 值 ， 从 而 避免 必须 编辑 大 量 的 其 他 页 面 。 
如 下 例 : 


<% 


strManagerName = objMyInfo.MyManager 
strPhoneExtension = objMyInfo.MyPhoneExtension 
%> 


6.10 ”使 用 Tools 组 件 


Tools 组 件 创建 一 个 Tools 对 象 , 该 对 象 提供 的 实用 程序 可 使 用 户 很 容易 地 将 高 级 功能 
加 入 到 Web 页 中 。Tools 组 件 提供 了 生成 随机 数 ， 检 查 文件 是 否 存在 或 处 理 HTML 表格 的 
方法 ， 如 表 6-5 所 示 。 


表 6-5 Tools 对 象 的 方法 


FileExists 检查 文件 是 否 存在 
检查 当前 用 户 是 否 是 站 点 所 有 者 


PluginExists 检查 服务 器 插件 是 否 存在 (只 适用 于 Macintosh 计算 机 ) 
ProcessForm 处 理 HTML 表单 
Random 生成 一 个 随机 整数 


Random 方法 产生 一 个 位 于 - 32 768-32 767 的 随机 整数 ， 为 了 获得 一 个 指定 范围 的 整 
数 ， 可 以 使 用 脚本 语言 中 的 ABS 函数 并 对 下 一 个 最 大 的 整数 取 模 。 


【练习 6-7】 使 用 Tools 组 件 生成 随机 整数 ， 程 序 运行 效果 如 图 6-17 所 示 。 
(1) 创建 一 个 名 为 Tools.asp 的 文件 ， 其 代码 如 下 所 示 ( 如 图 6-18 所 示 ): 


<HTML> 
<H2> 用 Tools 组 件 生成 随机 整数 </H2><br> 
<Hr> 


<% 


Set Tools=Server.CreateObject("MSWC.Tools")%> 

<% 

RandInt-Tools.Random 

Response. Write "下 面 是 一 个 随机 生成 的 整数 : "&RandInt&"-Br^" 
RandInt-Abs(Tools.Random ) 

Response. Write "下 面 是 一 个 随机 生成 的 正 整数 : "&RandInt& "-Br»" 
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RandInt-Abs(Tools.Random )Mod 200 

Response.write "下 面 是 一 个 随机 生成 的 在 0-200 之 间 的 正 整数 : " &RandInt& "Br" 
RandInt-(Abs(Tools.Random)Mod 51)+50 

Response.write "下 面 是 一 个 随机 生成 的 在 50-100 之 间 的 正 整 数 : " &RandInt&"-Br-" 
967 


(2) 将 Tools.asp 文件 保存 至 CAInetpub wwwroot Hkt. 
(3) 启动 正 浏览 器 后 ,在 地 址 栏 中 输入 http://localhost/Tools.asp 并 按 Enter 键 , 网 页 效 
果 将 如 6-17 所 示 。 


ET 
DENEN *-B e-sXan- 


用 Tools 组 件 生 成 随机 整数 


图 6-17 Tools.asp 的 效果 图 6-18 Tools.asp 的 代码 


6.11 使 用 IS Log 组 件 


IIS Log 组 件 创 建 了 一 个 ISLog 对 象 , 该 对 象 使 应 用 程序 能 从 IS 日 志文 件 中 抽取 特定 
类 型 的 信息 。 当 用 户 是 服务 器 上 的 系统 管理 员 和 操作 员 时 ，IS Log 组 件 特别 有 用 。 可 以 使 
用 下 面 的 脚本 来 创建 HSLog 对 象 : 


Set objLog-Server.CreateObject(MSWC.IISLog) 
IISLog 对 象 可 提供 的 方法 如 表 6-6 所 示 。 


表 6-6 llSLog 对 象 的 方法 


5 法 说 — m" 
AtEndOfLog 确定 所 有 记录 是 否 己 从 日 志文 件 中 读 出 
CloseLogFiles 关闭 所 有 打开 的 日 志文 件 

enLogFile 为 读 或 写 打开 一 个 日 志文 件 
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( 续 表 ) 
5 法 说 HH 
ReadFilter 从 日 志文 件 中 读 取 指 定 日 期 和 时 间 范 围 的 记录 
ReadLogRecord 从 当前 日 志文 件 中 读 取 下 一 个 可 用 的 Log 记录 
WriteLogRecord 写 一 个 Log 记录 到 当前 日 志文 件 中 


6.12 ”使 用 Dictionary 对 象 


Dictionary 对 象 是 保存 键 和 项 目 对 的 字典 对 象 , 字典 中 的 项 目 ( 可 以 是 任何 形式 的 数据 ) 
被 保存 在 数组 中 ， 每 项 都 与 唯一 的 键 相 关联 。 键 值 用 于 检索 单个 项 目 ， 通 常 是 整数 或 字符 


串 ， 但 不 能 为 数组 。 


Dictionary 对 象 包含 的 属性 和 方法 如 表 6-7 所 示 。 


表 6-7 Dictionary 对 象 的 属性 和 方法 


属性 或 方法 说 A 
ArrayMode 属性 数组 访问 模式 ， 人 允许 以 下 标 方式 访问 ， 默 认为 True 
Count 属性 只 读 ， 返 回 一 个 对 象 中 的 项 目 数 
Item 属性 在 一 个 Dictionary 对 象 中 设置 或 返回 所 指定 key 的 Item 
Items 属性 以 数组 方式 返回 对 象 中 的 全 部 项 目 
Key 属性 只 读 ， 根 据 下 标 取得 关键 字 的 键 值 
Keys 属性 以 数组 方式 返回 对 象 中 的 全 部 键 值 
Add 方法 向 对 象 中 添加 一 个 关键 字 项 目 对 
Exists 方法 如 果 对 象 中 存在 所 指定 的 关键 字 则 返回 True， 和 否则 返回 False 
Join 方法 返回 一 个 字符 串 , 此 字符 串 由 包含 在 对 象 中 的 所 有 数据 键 和 项 目 对 连接 创建 
Load 方法 从 指定 的 数据 源 装载 对 象 内 容 
Remove 方法 从 一 个 Dictionary 对 象 中 删除 一 个 关键 字 项 目 对 
RemoveAll 方法 从 一 个 对 象 中 删除 所 有 的 项 目 
Save 方法 存储 对 象 中 的 内 容 到 指定 的 目标 
Sort 方法 排序 对 象 中 的 数据 ， 可 以 指定 升序 和 降序 
Split 方法 分 析 给 定 的 字符 串 ， 将 分 解 出 的 子 字符 串 填充 到 对 象 中 


以 数字 作为 下 标 来 查询 Dictionary 对 象 时 ， 数 字 表示 按照 插入 顺序 的 下 标 ， 顺 序 从 0 


开始 。 如 果 其 中 某 个 数据 键 被 删除 ， 则 其 后 插入 的 数据 键 的 下 标 依次 前 移 。Dictionary 对 


象 的 键 值 如 果 为 字符 串 时 ， 将 忽略 字符 串 的 大 小 写 。 
Dictionary 对 象 的 默认 属性 为 Item, 所 以 可 以 直接 对 Dictionary 对 象 进行 默认 操作 。 例 
如 dict("e") 与 dict.Item("e") 的 作用 是 完全 等 同 的 。 如 下 例 将 插入 一 些 关键 字 项 目 对 , 然后 修 
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改 项 目 c 为 第 二 个 插入 的 项 目 。 


Set dict = CreateObject("NetBox.Dictionary") 
dict.Add "a", "Athens" 

dict. Add "b", "Belgrade" 

dict. Add "c", "Cairo" 

dict("c") = dict(1) 


【练习 6-8】 用 列表 方式 显示 出 字典 中 的 所 有 项 目的 值 , 程序 运行 效果 如 图 6-19 所 示 。 
(1) 创建 一 个 名 为 Dictionary.asp 的 文件 ， 其 代码 如 下 所 示 : 


<H3> 添 加 字典 条 目 </H3> 

<Form Action="<%=Request.ServerVariables("Script Name")%>"> 
<Input Type-"Text" Name="Key"> 

«Input Type-"Text" Name="value"> 

«Input Type-"submit" Value=" 添 加 条 目 "> 
</Form> 

«Hr 

<% 

Dim strToDict 
strToDict-Trim(Request.Querystring("key")) 
strValue-Trim(Request.Querystring("value")) 

If Len(strToDict)*0 Then 

' 检 查 字 典 是 否 存在 

If ISEmpty(Session("MyDict")) Then 

Set Session ("MyDict")-Server.CreateObject("Scripting.Dictionary") 
End If 

Dim myLocalDict 

Set myLocalDict-Session("MyDict") 
myLocalDict.Add strToDictstrValue 。“' 添 加 字典 条 目 
End If 

%> 

<H3> 列 表 字 典 的 内 容 </H3> 

<% 

If ISEmpty(Session("MyDict")) Then 

Response. Write "字典 是 空 的 ! " 

Else 

Dim aKeys.aValues.i 

Set myLocalDict-Session("MyDict") 
aKeys-myLocalDict.Keys 
aValues-myLocalDict.Items 

For i-0 To myLocalDict.Count-1 

Response. Write aKeys(i)&"—-"&aValues(i)&"-Br-»" 
Next 
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End If 
%> 


(2) 将 Dictionary.asp 文件 保存 至 C:\InetpubWwwwroot X fF X F. 
(3) 启动 下 浏览 器 后 ,在 地 址 栏 中 输入 http;/localhost/Dictionary.asp 并 按 Enter $£, I 
页 效果 将 如 6-19 所 示 。 


列表 字典 的 内 容 


PREEN WEGICNAET 


图 6-19 网 页 效果 


613 J 题 


6.13.1 填空 题 


(1) 使 用 组 件 可 快速 在 网 站 上 建立 一 个 广告 系统 ， 它 允许 在 每 次 访问 ASP 
页 面 时 显示 新 的 广告 。 

D 广告 条 放置 到 网 站 后 ,用户 对 广告 条 进行 单 击 操作 后 ，ASP 就 会 打开 
文件 。 

(3) ASP 服务 器 的 组 件 通过 读 取 计 划 文 件 来 完成 的 网 页 内 容 的 显示 ， 通 党 
是 自动 轮换 显示 一 些 HTML 内 容 。 

(4) 在 Content Linker 组 件 的 列表 文件 中 ， 第 一 列 的 URL 和 第 二 列 的 链接 描述 必须 用 


键 来 隔 开 。 
(5) ASP 服务 器 的 组 件 用 于 检测 客户 端 浏览 器 的 能 力 。 组 件 用 
来 测试 访问 者 对 某 文件 或 某 页 的 访问 权 。 
(6) Dictionary 对 象 的 默认 属性 为 ， 所 以 可 以 直接 对 Dictionary 对 象 进 行 


默认 操作 。 
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6.13.2 ”选择 题 


(1) 要 使 用 组 件 ， 必 须 首先 创建 一 个 列表 文件 。 
A. Content Linker B. Page Counter 
C. ScriptTimeout D. 以 上 全 是 
(2) Page Counter 组 件 用 于 创建 对 象 , 该 对 象 用 来 记录 和 显示 Web 页 被 打 
开 的 次 数 。 
A. Content Linker B. Page Counter 
C. Page Counter D. 以 上 全 错 


6.13.3 ”问答 题 


(1) ASP 有 哪 几 种 调用 组 件 的 方法 ? 
(2) 简 述 使 用 Ad Rotator 组 件 需 要 哪 几 个 文件 ， 它 们 都 起 什么 作用 ? 
(3) 试 简要 说 明 Browr Capabilities 组 件 的 工作 原理 。 


6.13.4 ”操作 题 


(1) 参照 本 章 练 习 的 操作 ， 使 用 Content Linking 组 件 调用 列表 文件 ， 实 现 页 面 的 列表 
跳 转 ， 程 序 运行 效果 如 图 6-20 所 示 。 

D 参照 本 章 练习 的 操作 ， 创 建 一 个 可 对 字典 进行 项 目 查询 的 页 面 ， 程 序 运行 效果 如 图 
6-21 所 示 。 


图 6-21 网 页 效果 2 
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Application 和 Session 对 象 是 ASP 重要 的 内 建 对 象 ， 其 中 Application 对 象 可 以 在 所 有 
用 户 之 间 共 享 信息 ， 并 在 服务 器 运行 期 间 持久 地 保存 数据 。Session 对 象 更 接近 于 普通 应 用 
程序 中 的 全 局 变量 ， 全 局 变量 在 程序 执行 的 过 程 中 始终 有 效 ， 其 他 用 户 同时 启动 该 程序 的 
另 一 个 副本 ， 该 程序 的 两 个 实例 使 用 各 自 的 全 局 变量 ， 在 两 个 进程 之 间 不 能 互相 访问 。 
通过 本 章 的 理论 学 习 和 练习 ， 用 户 应 了 解 和 掌握 以 下 内 容 : 
e 了 解 Application 对 象 的 属性 
掌握 Application 对 象 的 方法 
掌握 Application 对 象 的 事件 
掌握 Session 对 象 的 方法 
掌握 Session 对 象 的 事件 


7.1 Application 对 象 


Application 对 象 就 是 在 硬盘 上 的 一 组 主页 以 及 ASP 文 件 . 当 ASP 加 入 了 一 个 Application 
对 象 ， 那 么 它 就 拥有 了 作为 单独 主页 所 无 法 拥有 的 属性 。 


7.1.1 Application 对 象 简介 


Application 对 象 是 应 用 程序 级 的 对 象 , 可 以 产生 一 个 全 部 Web 应 用 程序 都 可 以 存 取 的 
变量 ， 所 有 的 客户 都 可 以 访问 这 个 变量 。 


应 用 程序 ， 还 可 以 根据 某 个 任务 为 一 些 ASP 文件 创建 一 个 应 用 程序 。 例 如 ， 创 建 一 个 应 用 
程序 为 全 部 客户 服务 后 ， 再 创建 一 个 新 的 应 用 程序 为 网 络 管理 员 服务 。 

应 用 程序 的 运行 实例 用 Application 对 象 表示 , 其 生存 期 从 请 求 该 应 用 程序 的 第 一 个 页 
面 开始 (不 是 从 服务 器 启动 开始 )， 直到 Web 站 点 关闭 时 结束 。 由 于 存储 在 Application 对 象 
中 的 数据 可 以 被 应 用 程序 的 所 有 用 户 共享 , 因而 Application 对 象 特别 适合 在 应 用 程序 的 不 
同 用 户 之 间 传递 信息 。 

Application 对 象 本 身 提 供 了 一 些 方法 与 集合 , 用 以 处 理 ASP 应 用 程序 的 各 种 状态 与 特 
性 ， 如 表 7-1 所 示 。 
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表 7-1 Application 对 象 成 员 


对 象 成 员 说 RB 
集合 Contents 存储 Application 对 象 变量 值 
StaticObjects 存储 Application 对 象 标记 <Object> 变 量 
Contents.Remove(valName) 移 走 Contents 集合 中 的 特定 元 素 
Contents.RemoveAll 移 走 Contents 集合 中 的 所 有 元 素 
"m Lock 锁定 Application 对 象 存 取 
Unlock() 释放 被 锁定 的 Application 对 象 
: OnStart 第 一 次 启动 ASP 应 用 程序 时 被 触发 
uni OnEnd ASP 应 用 程序 结束 时 被 触发 
注意 : 


一 个 应 用 程序 的 根 目录 由 IIS 的 Internet 信息 服务 程序 来 设 定 , 根 目 录 下 的 每 个 文件 和 
目录 都 属于 该 应 用 程序 。 应 用 程序 和 应 用 程序 之 间 是 不 能 互相 重合 的 ， 如 果 其 中 的 某 一 个 
子 目录 也 被 创建 为 一 个 根 目 录 ， 那 它 将 被 认为 是 一 个 新 的 应 用 程序 。 


7.1.2 Application 对 象 的 属性 


Application 对 象 没有 内 置 属性 ， 用 户 可 根据 需要 自行 创建 。 创 建 一 个 属性 后 ， 在 整个 
应 用 程序 运行 期 间 , 此 属性 的 值 都 可 以 被 所 有 的 用 户 访问 。 如 下 面 的 代码 定义 了 Application 
对 象 的 属性 Welcome: 

<% Application("Welcome")=" 本 网 站 属于 非 赢利 性 商业 网 站 " %> 

每 个 Application 变量 都 是 Contents 集合 中 的 一 个 成 员 。 创 建 一 个 新 的 Application 变 
量 ， 其 实 就 是 在 Contents 集合 中 添加 一 项 新 的 内 容 。 例 如 ， 上 面 一 句 代码 也 可 以 写 为 : 

<% Application.Contents("Welcome")=" 本 网 站 属于 非 赢利 性 商业 网 站 " %> 

Contents.Remove 方法 可 以 从 Contents 集合 中 删除 一 个 成 员 ， 而 Contents.RemoveAll 
方法 可 以 删除 Contents 集合 中 的 所 有 成 员 ， 如 下 例 所 示 : 

<% Application.Contents.Remove("Welcome") %> 

Contents 集合 包含 了 所 有 的 Application 变量 ， 可 使 用 For...Each 循环 全 部 列举 或 显示 
Application 变量 的 值 ， 如 下 例 所 示 : 


<% 

For Each item in Application.Contents 

Response. Write ("<Br>"&item&"="&Application.Contents(item)) 
Next 

%> 
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7.1.3 Application 对 象 的 方法 


Application 对 象 对 于 网 站 所 有 的 网 页 和 在 线 用 户 来 说 ， 是 一 个 公开 的 对 象 ， 因 此 ， 任 
何人 在 任何 时 间 都 有 可 能 对 其 进行 存 取 。 当 一 个 Application 对 象 在 同一 个 时 间 被 存 取 ， 此 
时 就 会 发 生 冲 突 ， 因 此 ， 对 于 Application 对 象 ， 适 当地 限制 用 户 存 取 非 常 重要 。 

Application 对 象 包含 Lock 和 UnLock 两 种 方法 。 Lock 方法 用 于 锁定 Application 对 象 ， 
保证 同一 时 刻 只 有 一 个 用 户 可 以 操作 其 中 的 数据 ， 避 免 多 个 用 户 同 时 修改 同一 数据 而 产生 
的 冲突 。UnLock 方法 用 于 解除 Lock 方法 对 数据 的 锁定 ， 以 便 其 他 用 户 能 访问 和 修改 
Application 对 象 的 属性 。Lock 和 UnLock 这 两 种 方法 总 是 成 对 出 现 的 ， 这 样 可 以 确保 
Application 对 象 中 数据 对 所 有 用 户 的 完整 性 和 一 致 性 。 


【练习 7-1】 制作 一 个 网 站 计数 器 ， 程 序 运行 效果 如 图 7-1 所 示 。 
(1) 创建 一 个 名 为 Application.asp 的 文件 ， 其 代码 如 下 所 示 ( 如 图 7-2 所 示 ): 


<% 

Application.Lock "锁定 Application 对 象 ， 保 证 只 有 当前 用 户 对 计数 器 进行 操作 
Application("user num")- Application("user num") + 1 “计数 器 值 加 1 

Application.UnLock "解除 锁定 ， 其 他 用 户 可 对 计数 器 进行 操作 
Response.write(" 此 页 面 已 经 被 访问 过 " &Application("user_num")&" 次 ") "输出 结果 

%> 


(2) 将 Application.asp 文件 保存 至 Ci\InetpubWwwwroot 文件 夹 中 。 
G) 启动 正 浏 览 器 ， 然 后 在 地 址 栏 中 输入 http://localhost/Application.asp 并 按 Enter 键 ， 
运行 效果 如 图 7-1 所 示 


xP miD EV PRAW IAD SAO 
ré uenon | | R> D- rN 


此 页 面 已 经 被 访 问 这 1 次 


图 7-1 Application.asp 的 效果 图 7-2  Application.asp 的 代码 


7.14 Application 对 象 的 事件 


Application 对 象 包含 Application OnStart 和 Application OnEnd 两 个 事件 。 当 网 站 的 第 
个 用 户 通过 浏览 器 打开 网 页 时 ，Application 对 象 就 会 被 自动 创建 ,与 此 同时 ，Application 
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对 象 所 定义 的 OnStart 事件 便 会 被 触发 ， 对 于 ASP 网 页 的 程序 设计 师 而 言 ， 会 将 焦点 放 在 
所 触发 的 OnStart 事件 ， 整 个 网 站 一 开始 所 要 执行 的 工作 ， 初 始 化 操作 的 相关 程序 代码 ， 
都 可 以 在 这 个 事件 中 作 处 理 。 

同样 , ASP 应 用 程序 网 站 被 关闭 时 , 系统 检测 到 最 后 一 个 用 户 离线 的 同时 ,Application 
对 象 就 会 被 结束 。 所 有 ASP 应 用 程序 执行 期 间 ， 网 页 在 其 中 所 存储 的 数据 均 会 被 清除 。 此 
时 ，OnEnd 事件 即 会 被 触发 处 理 ASP 网 站 结束 时 所 需 的 程序 代码 可 以 放 在 这 个 事件 中 作 
处 理 。 

处 理 OnStart 和 OnEnd 事件 的 相关 程序 不 同 于 一 般 的 方法 ,必须 在 一 个 名 为 Globalasa 的 
特殊 文件 中 作 处 理 。Application 对 象 创建 与 消失 时 , 都 会 在 该 文件 内 进行 (关于 Global.asa 文件 
的 详细 说 明 请 参见 第 5.4 节 中 的 相关 内 容 )。 


7.1.5 利用 Application 对 象 保存 数据 


在 Application 对 象 中 ， 保 存 的 内 容 除了 可 以 是 简单 数据 类 型 的 变量 和 普通 对 象 外 ， 还 
可 以 是 一 个 保存 有 多 个 值 的 数组 。 例 如 ， 在 创建 的 过 程 中 要 求 定义 一 个 普通 的 数组 并 对 其 
赋值 ， 然 后 将 数组 整体 定义 为 一 个 Application 对 象 ， 代 码 如 下 所 示 : 


<% 

dim Array() 

Array—-Application("array") 

for i = 0 to ubound(array) 
Response.write Array(i) 

nexti 


%> 


数组 在 Application 中 只 能 作为 一 个 对 象 保存 ,用 户 只 能 对 一 个 数组 整体 进行 存 取 操 作 ， 
而 不 能 直接 改变 数组 中 某 个 元 素 的 值 。 对 Application 对 象 中 数组 值 的 修改 也 要 通过 普通 的 
数组 来 进行 。 

对 一 个 Application 对 象 中 的 数组 值 进 行 修改 ， 其 代码 如 下 所 示 : 


<% 

dim Array() "定义 一 个 临时 数组 

Array-Application("array") ' 把 含有 数组 值 的 Application 对 象 赋 给 该 临时 数组 
Array(0)=" 第 一 个 元 素 的 值 " ' 根 据 需 要 修改 这 个 数组 中 元 素 的 值 
Amray(1)=" 第 二 个 元 素 的 值 " 

Application.lock 

Application("array")-Array ' 最 后 把 数组 赋 给 Application 对 象 
Application.unlock 

%> 
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72 Session 对 & 


使 用 Session 对 象 ， 可 以 存储 特定 用 户 会 话 所 需 的 信息 。 当 用 户 在 应 用 程序 的 页 面 之 
间 跳 转 时 ， 存 储 在 Session 对 象 中 的 数据 始终 存在 ， 不 会 清除 。 


7.2.1 Session 对 象 简介 


Web 上 用 在 浏览 器 和 服务 器 之 间 传 送 请 求 和 响应 的 HITP 协议 是 无 状态 协议 ，Web 服 
务 器 将 每 个 页 面 请 求 都 当 作 独立 的 请 求 ， 服 务 器 不 保留 以 前 请 求 的 任何 信息 。 

ASP 的 Session 对 象 弥补 了 HTTP 无 法 记忆 先前 请 求 的 缺陷 。Session 对 象 可 用 来 标识 
每 次 访问 的 用 户 并 收集 信息 ， 用 户 在 应 用 程序 的 页 面 之 间 跳 转 时 ， 该 Session 信息 仍然 存 
在 并 保持 不 变 。 在 用 户 与 网 站 服务 器 保持 联系 期 间 ， 应 用 程序 可 调用 这 些 存储 的 信息 来 跟 
踪 用 户 的 喜好 或 选择 。 

Session 对 象 同样 提供 了 多 种 成 员 ， 其 中 包含 属性 、 方 法 和 事件 ， 这 些 成 员 在 应 用 程序 
中 的 使 用 也 相当 广泛 ， 如 表 7-2 所 示 。 


表 7-2 Session 对 象 成 员 


对 象 成 员 说 了 明 
集合 Contents 存储 Session 对 象 变量 值 
StaticObjects, 存储 Session 对 象 <Object> 变 量 
Contents.Remove(valName 移 走 Session 集合 中 的 特定 元 素 
方法 Contents.RemoveAll 移 走 Session 集合 中 的 所 有 元 素 
Abandon 结束 当前 的 Session， 为 用 户 创 建 一 个 新 的 Session 
x onStart 一 个 新 的 用 户 联 机 时 被 触发 
onEnd 一 个 用 户 结束 联机 时 被 触发 
CodePage 设 定 网 页 所 使 用 的 字符 编号 
属性 LCID 存 取 网 页 设 定 的 区 域 识别 
SessionID 代表 一 个 特定 用 户 的 唯一 Session 识别 ID 
TimeOnut 设 定 Session 对 象 的 存活 时 间 


Session 与 Application 对 象 的 应 用 范围 不 同 ， 但 观念 、 相 关 方法 以 及 事件 的 处 理 机 制 
HAE. Session 对 象 用 于 记载 单个 客户 的 信息 ，Web 服务 器 为 每 个 访问 者 建立 一 个 单独 的 
Session， 例 如 Session 对 象 可 记载 该 客户 的 用 户 名 称 及 个 人 爱好 等 。 

Application 对 象 可 以 记载 所 有 的 客户 信息 ， 例 如 Application 对 象 应 用 于 聊天 室 ， 大 家 
的 发 言 都 存放 到 Application 对 象 中 ， 彼 此 可 以 看 到 所 有 的 发 言 内 容 。 不 同 的 客户 必须 访问 
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属于 自己 的 Session 对 象 ， 但 可 以 访问 公共 的 Application 对 象 。 
7.2.2 Session 对 象 的 SessionID 属性 


用 户 第 一 次 请 求 应 用 程序 中 的 ASP 文件 时 ，ASP 将 生成 一 个 SessionID。SessionID 是 
通过 复杂 算法 产生 的 长 整 型 数据 ， 返 回 用 于 当前 会 话 的 唯一 标识 符 。 新 会 话 开始 时 ， 它 将 
自动 为 每 一 个 Session 分 配 不 同 的 编号 ， 服 务 器 将 SessionID 作为 Cookies 存储 到 用 户 Web 
浏览 器 中 。 

Web 浏览 器 创建 SessionID 的 Cookies 后 ， 用 户 请 求 其 他 ASP 文件 或 请 求 其 他 应 用 程 
序 中 运行 的 ASP 文件 ，ASP 会 一 直 调 用 该 Cookie 来 跟踪 会 话 。 如 果 用 户 放弃 了 会 话 或 在 
会 话 超时 后 继续 请 求 其 他 ASP 文件 ，ASP 仍 将 调用 同一 Cookie 开始 新 的 会 话 。 只 有 Web 
服务 器 重新 启动 时 才 清 除 存储 在 内 存 中 的 SessionID 设置 ， 或 用 户 重新 启动 浏览 器 时 才 可 
能 收 到 新 的 SessionID Cookies。 如 下 例 将 取得 当前 用 户 的 SessionID 值 : 


<%Response.Write ("Hi， 您 的 SessionID 自动 编号 是 <b>" & SessionID. SessionID & " </b> ")%> 


7.2.3 Session 对 象 的 TimeOut 属性 


TimeOut 属性 定义 了 应 用 程序 的 Session 对 象 的 时 限 。 如 果 用 户 在 TimeOut 规定 的 时 
间 内 没有 请 求 或 刷新 应 用 程序 中 的 任何 页 ，Session 对 象 就 会 自动 终止 。 默认 情况 下 ,服务 
器 只 保留 Session 对 象 20 分 钟 。 

对 于 特定 的 会 话 ， 如 果 要 设置 低 于 默认 应 用 程序 的 超时 间隔 ， 可 通过 TimeOut 属性 来 
设置 。TimeOut 属性 以 分 钟 为 单位 指定 超时 间隔 ， 如 下 例 将 超时 间隔 设 为 10 分 钟 ; 


<% Session.TimeOut=10 %> 
注意 : 
可 以 在 IIS 的 Internet 信息 服务 程序 中 设置 会 话 超 时 , 该 值 的 设置 取决 于 应 用 程序 的 要 
求 及 服务 器 的 内 存 容量 。 会 话 超时 如 果 设 置 过 长 ， 可 能 会 导致 打开 的 会 话 太 多 ， 这 将 增加 
服务 器 内 存 资 源 的 负担 。 


7.2.4 Session 对 象 的 Abandon 方法 


Abandon 方法 是 Session 对 象 的 唯一 方法 ，Abandon 方法 可 以 用 来 删除 用 户 的 Session 
对 象 并 释放 其 所 占用 的 资源 。 下 面 的 语句 将 用 于 删除 Session 对 象 : 


<% Session.Abandon %> 


如 果 使 用 了 Abandon 方法 ，Session 对 象 将 被 重新 分 配 一 个 新 的 SessionID 值 。 
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7.2.55 Session 对 象 的 事件 


Session 对 象 包 含 Session OnStart 和 Session OnEnd 两 个 事件 。 当 网 站 上 一 个 新 用 户 通 

浏览 器 请 求 一 份 网 页 时 ， 这 个 用 户 的 专属 Session 对 象 就 会 被 创建 。Session 对 象 所 定义 
OnStart 事件 同时 被 触发 。 

当 一 个 用 户 离线 或 是 停止 任何 浏览 网 页 操作 时 ， 一 旦 过 了 Session 对 象 的 存活 期 限 ， 
代表 此 用 户 的 Session 对 象 就 会 被 结束 。 此 时 OnEnd 事件 即 会 被 触发 ， 处 理 用 户 离线 时 所 
需 的 程序 代码 可 以 放 在 这 个 事件 中 作 处 理 。 

OnStart 和 OnEnd 事件 的 相关 程序 与 Application 对 象 一 样 ， 都 是 在 Global.asa 文件 中 
作 处 理 的 。 


7.2.6 利用 Session 对 象 记录 用 户 登 录 信 息 


下 面 以 一 个 简单 的 实例 ， 介 绍 利用 Session 对 象 记录 变量 内 容 的 方法 。 


【练习 7-2 利用 Session 对 象 记录 变量 内 容 ,实现 ASP 网 页 记录 用 户 登录 信息 的 效果 。 
(1) 创建 一 个 名 为 Application3.asp 的 文件 ， 其 代码 如 下 所 示 ( 如 图 7-3 所 示 ): 
<% 
data=Session("data") 
Response.Write" 进 入 网 页 时 ,data="&data&"<BR>" 
data=data+1 
Response.Write" 网 页 结束 时 ,data="&data&"<BR>" 
Session("data")=data 
%> 


(2) 将 Application3.asp 文件 保存 至 CInetpubWwwwroot 文件 天 中 。 


(3) 启动 耻 浏 览 器 后 ， 在 地 址 栏 中 输入 http://localhost/Application3.asp 并 按 Enter 键 ， 
效果 如 图 7-4 所 示 。 


图 7-3 Application3.asp 的 代码 图 7-4 Application3.asp 的 效果 
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7.3 Global.asa X. ft 


Global.asa 文件 是 用 来 存放 Application 对 象 和 Session 对 象 事件 的 程序 , 当 Application 


对 象 和 Session 对 象 第 一 次 被 调用 或 结束 时 ， 服 务 器 就 读 取 该 文件 并 进行 相应 的 处 理 。 


Globalasa 文件 是 一 个 文本 文件 ， 可 使 用 任何 文本 编辑 器 进行 编辑 。 下 
准 的 空白 Global.asa 文件 结构 : 


<SCRIPT LANGUAGE=VBScript RUNAT=Server> 

Sub Application OnStart 

' 当 第 一 个 用 户 运 行 ASP 应 用 程序 中 的 任何 一 个 页 面 时 执行 
End Sub 

Sub Application OnEnd 

' 当 Web 服务 器 关闭 时 执行 

End Sub 

Sub Session OnStart 

' 用 户 第 一 次 运行 ASP 应 用 程序 中 的 任何 一 个 页 面 时 执行 
End Sub 

Sub Session OnEnd 

' 当 一 个 用 户 的 会 话 超时 或 退出 应 用 程序 时 执行 

End Sub 

</SCRIPT> 


ASP 对 使 用 Global.asa 文件 有 以 下 几 条 要 求 : 


面 就 是 一 个 标 


o 每 一 个 应 用 程序 可 能 由 很 多 文件 或 文件 夹 组 成 ， 但 只 能 有 一 个 Global.asa 文件 ， 而 


且 文 件 名 必须 为 Global.asa。 
e 必须 存放 在 应 用 程序 的 根 目 录 中 。 


e Global.asa 文件 不 能 写成 <%…%> 的 形式 ， 如 果 包 含 的 脚本 没有 用 <SCRIPT> 标 记 封 


装 ， 或 定义 的 对 象 没 有 会 话 或 应 用 程序 作用 域 ， 则 服务 器 将 返回 错误 。 


服务 器 会 忽 


略 已 标记 的 但 未 被 应 用 程序 或 会 话 事件 使 用 的 脚本 和 文件 的 HTML 语句 。 
e 在 Globalasa 文件 中 不 能 包含 任何 输出 语句 ， 如 Response.Write， 因 为 Global.asa 


文件 只 是 被 调用 ， 而 不 会 显示 在 页 面 上 。 


【练习 7-3 】 通 过 Global.asa 文件 ， 使 用 Application 对 象 和 Session 对 象 显示 网 站 的 在 


线 人 数 和 访问 人 数 ， 程 序 运行 效果 如 图 7-5 所 示 。 
(1) 创建 一 个 名 为 Globalasa 的 文件 ， 其 代码 如 下 所 示 : 


«SCRIPT LANGUAGE=VBScript RUNAT=Server> 
Sub Application OnStart 

Session.TimeOut=3 ' 将 会 话 超 时 设 为 3 分 钟 
Application.Lock '" 锁 住 Application 
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Application("intuseronline")-0 ”' 初 始 化 在 线 人 数 为 0 
Application("intuserall')-0 ”' 初 始 化 访问 人 数 为 0 
Application.UnLock ' 解 开 Application 

End Sub 

Sub Session OnStart 

Application.Lock 

' 当 一 次 新 用 户 会 话 开始 时 ， 使 在 线 人 数 和 访问 人 数 都 加 1 
Application("intuseronline")-Application("intuseronline")*-1 
Application("intuserall")-A pplication("intuserall")- 1 
Application. UnLock 

End Sub 

Sub Session OnEnd 

Application.Lock 

' 会 话 超时 或 用 户 退出 时 ， 使 在 线 人 数 减 1 
Application("intuseronline")=Application("intuseronline")-1 
Application.UnLock 

End Sub 

</SCRIPT> 


(2) 将 Global.asa 文件 保存 至 C:\Inetpubvwwwroot 文件 夹 中 。 
(3) 创建 一 个 显示 访问 人 数 的 ASP 页 面 Application4.asp， 其 代码 如 下 所 示 ( 如 图 7-6 所 示 ): 
<h2 align="center"> 网 站 的 统计 数据 </h2> 
<% 
Response.Write "<Br> 当 前 网 站 在 线 人 数 是 : "&Application("intuseronline") 
Response.Write "<Br> 网 站 总 的 访问 量 是 : "&Application("intuserall") 
%> 


(4) 将 Application4.asp 文件 保存 至 Ci\Inetpub\Wwwwroot X fF X P. 
(5) 启动 IE 浏览 器 后 ， 在 地 址 栏 中 输入 http://localhost/Application4.asp 并 按 Enter 键 ， 
效果 如 图 7-5 所 示 。 


m - Teo mim euo fro vr 
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TH Wer SEV GMAW IAV MEG Dm le 
LIN mnm &-B e-Enso- |aespones.urite "aeo SE EUAZEH LU, "tappticationtntessrontine" 


|aespense.Urite "eod ESSERE, "happticationTintuserati) 


网 站 的 统计 数据 J 


当 六 网站 在 线 人 元 是 ,1 
同 站 总 的 访问 最 是 ，1 


图 7-5 Global.asa 的 效果 图 7-6 Globalasa 的 代码 
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74 J 题 


7.4.1 填空 题 


(1) ASP 提供 的 6 个 内 置 对 象 分 别 是 
和 ScriptError 对 象 。 


(2) 每 个 Application 变量 都 是 集合 中 的 一 个 成 员 。 
(3) 方法 用 于 锁定 Application 对 象 ， 方法 可 以 解除 对 
Application 对 象 的 锁定 。 
(4) 默认 情况 下 ， 服 务 器 只 保留 Session 对 象 分 钟 。 
(5) 如 果 使 用 了 方法 ，Session 对 象 将 被 重新 分 配 一 个 新 的 SessionID 值 。 
(6) 文件 是 用 来 存放 Application 对 象 和 Session 对 象 事件 的 程序 。 
7.4.2 选择 题 
(1) 下 面 ( — ) 不 是 Globalasa 文件 可 用 来 存放 的 事件 。 
A. Application OnEnd B. Application OnStart 
C. Sever OnStart D. Session OnEnd 


Q) 下 面 关 于 脚本 延 时 的 时 间 期 限 ， 说 法 不 正确 的 是 ( — )。 
A. 脚本 运行 超过 ScriptTimeout 属性 设置 时 间 将 作 超时 处 理 
B. 超时 处 理 时 会 中 止 没 有 完毕 的 响应 并 提示 超时 错误 信息 
C. 如 果 设 置 的 ScriptTimeonut 属性 值 小 于 默认 值 ， 则 以 设置 值 为 准 
D. 脚本 可 以 设置 为 永 不 过 期 


7.4.3 问答 题 


(1). 简 述 Session 对 象 与 Application 对 象 的 异同 。 
(2) ASP 对 使 用 Globalasa 文件 有 哪些 要 求 ? 


7.4.4 ”操作 题 


(1) 编辑 一 段 查询 当前 SessionID 属性 值 的 ASP 程序 , 以 显示 如 图 7-7 所 示 的 网 页 效果 。 
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(2) 参照 本 章 所 介绍 的 内 容 ， 编 写 一 个 Global.asa 文件 ， 以 显示 如 图 7-8 所 示 的 网 
页 效果 。 


本 实例 显示 SessionID 
点 击 此 处 E i 


你 的 SessionID 是 :583872997 


确定 一 ] 


图 7-7 网 页 效果 1 图 7-8 网 页 效果 2 


第 8 章 ASP 的 文件 处 理 


ASP 的 File Access 组 件 提 供 了 可 用 来 访问 计算 机 文件 系统 的 方法 和 属性 。File Access 
组 件 使 用 FSO(File System Object) 对 象 模型 来 处 理 服务 器 端的 文件 、 文件 夹 和 驱动 器 。 使 用 
FSO 可 以 建立 、 删 除 、 移 动 文件 和 文件 夹 ， 检 查 文件 和 文件 夹 是 否 存在 ， 以 及 更 改 文 件 和 
文件 夹 的 名 字 。 

通过 本 章 的 理论 学 习 和 练习 ， 用 户 应 了 解 和 掌握 以 下 内 容 : 

e 了 解 FileSystemobject 对 象 
掌握 在 文件 中 读 写 数据 的 方法 
掌握 文件 的 各 种 操作 
了 解 获得 驱动 器 信息 的 方法 
了 解 文件 夹 的 操作 


84 FileSystemObject 对 象 简介 


File Access 组 件 提供 可 用 于 在 计算 机 文件 系统 中 检索 和 修改 文件 的 对 象 。 用 户 可 以 使 
用 File Access 组 件 创建 FileSystemObject 对 象 ， 简 称 为 FSO。FSO 提供 用 于 访问 文件 系统 
的 方法 、 属 性 和 集合 。 

FSO 可 以 对 驱动 器 、 文 件 夹 以 及 文件 等 对 象 进行 相关 的 处 理 操作 。 可 以 检测 并 显示 出 
系统 驱动 器 的 信息 分 配 情况 ， 可 以 创建 、 改 变 、 移 动 和 删除 文件 夹 ， 并 能 检测 一 些 给 定 的 
文件 夹 是 否 存 在 ;可 以 提取 出 文件 夹 的 信息 ， 如 名 称 、 被 创建 或 最 后 一 次 修改 的 日 期 等 。 


注意 : 

FSO 对 象 模式 使 文件 处 理 变 得 很 容易 。 当 只 想 存 取 一 些 更 新 更 小 的 数据 时 ， 可 把 它们 
存储 为 二 进 制 或 文本 文件 中 ， 然 后 用 FSO 来 创建 文件 ， 插 入 和 改变 数据 ， 以 及 输出 ( 读 取 ) 
数据 。 数 据 存储 在 数据 库 中 ， 如 Access 或 SQL 服务 器 ， 会 给 应 用 程序 增加 很 大 的 开销 。 
而 使 用 FSO 将 数据 存储 在 文本 文件 中 可 节省 系统 资源 。 


FSO 组 件 中 包含 多 个 对 象 和 集合 ， 其 名 称 和 相关 说 明 如 表 8-1 所 示 。 
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38-1 FileSystemObject(FSO) 包 含 的 对 象 和 集合 


对 象 /集合 Ho ç B 

FileSystemObject 主 对 象 。 包含 用 来 创建 、 删 除 和 获得 有 关 信 息 ， 通 常用 来 操作 驱动 器 、 文 件 夹 
和 文件 的 方法 和 属性 。 和 该 对 象 相关 联 的 许多 方法 ， 与 其 他 FSO 对 象 中 的 方 
法 完全 相似 ， 它 们 是 为 了 方便 才 被 提供 的 

Drive 对 象 。 包含 用 来 收集 信息 的 方法 和 属性 ， 这 些 信息 与 连接 在 系统 上 的 驱动 器 有 
关 ， 如 驱动 器 的 共享 名 以 及 有 多 少 可 用 空间 。 请 注意 ，Drive 并 非 必 须 是 硬盘 ， 
也 可 以 是 CD-ROM 驱动 器 ，RAM 磁盘 等 。 并 非 必 须 把 驱动 器 实物 地 连接 到 
系统 上 ， 也 可 以 通过 网 络 在 逻辑 上 被 连接 起 来 

Drives 集合 。 提供 驱动 器 的 列表 , 这 些 驱 动 器 可 以 是 物理 的 或 在 逻辑 上 与 系统 相连 接 。 
Drives 集合 包括 所 有 驱动 器 ,与 类 型 无 关 。 要 可 移动 的 媒体 驱动 器 在 该 集合 
显现 ， 不 必 把 媒体 插入 到 驱动 器 中 

File 对 象 。 包 含 用 来 创建 、 删 除 或 移动 文件 的 方法 和 属性 ， 也 用 来 向 系统 询问 文件 
名 、 路 径 和 多 种 其 他 属性 

Files 集合 。 提 供 包 含 在 文件 夹 内 的 所 有 文件 的 列表 

Folder 对 象 。 包 含 用 来 创建 、 删 除 或 移动 文件 夹 的 方法 和 属性 ， 也 用 来 向 系统 询问 文 
件 夹 名 、 路 径 和 多 种 其 他 属性 

Folders 集合 。 提 供 在 Folder 内 的 所 有 文件 夹 的 列表 

TextStream 对 象 。 用 来 读 写 文本 文件 

注意 : 


与 FileSystemObject 主 对 象 相关 联 的 很 多 方法 重复 了 另外 4 个 对 象 的 方法 。 因 此 既 可 
以 通过 FileSystemObject 主 对 象 来 对 驱动 器 、 文 件 夹 和 文件 进行 大 多 数 操作 ， 也 可 以 通过 
对 应 的 驱动 器 、 文 件 夹 或 文件 对 象 对 这 些 组 件 进行 操作 。FSO 模型 通过 两 种 方法 实现 对 同 
一 对 象 的 操作 ， 其 操作 效果 是 相同 的 ， 提 供 这 种 宛 余 功能 的 目的 是 为 了 实现 最 大 的 编程 灵 


活性 。 


使 用 FSO 编程 ,首先 要 用 Server.CreatObject 方法 创建 FileSystemObject 对 象 , 如 下 例 所 示 : 


<% 


Dim MyFileObject 
Set MyFileObject =Server.Create Object("Scripting.FileSystemObject") 


%> 


创建 FileSystemObject 对 象 后 ， 就 可 以 创建 、 打 开 或 读 写 文件 ， 以 及 对 文件 和 文件 夹 
进行 新 建 、 复 制 、 移 动 、 删 除 等 操作 。FileSystemObject 对 象 的 方法 及 相关 说 明 如 表 8-2 


所 示 。 
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表 8-2 FileSystemObject 对 象 的 方法 
A X Wi 了 明 
CreateTextFile 创建 一 个 文本 文件 
OpenTextFile 打开 一 个 已 有 的 文本 文件 
GetFile 返回 与 指定 路 径 中 某 文件 相应 的 File 对 象 
GetExtensionName 获得 文件 扩展 名 
CopyFile 复制 一 个 文件 
MoveFile 移动 文件 ， 将 文件 从 一 个 路 径 移 到 另 一 路 径 
deer: 删除 文件 ， 其 中 第 一 个 参数 是 要 删除 的 文件 ， 第 二 个 参数 说 明 是 否 强行 删 
除 (如 果 文 件 是 只 读 或 隐 含 等 ) 
FileExists 如 果 指 定 的 文件 存在 ， 返 回 True, AWE JE False 
GetFolder 返回 与 指定 的 路 径 中 某 文件 夹 相 应 的 Folder 对 象 
CreateFolder 创建 一 个 目录 
CopyFolder 复制 整个 目录 ， 会 复制 这 个 目录 下 的 所 有 文件 
MoveFolder 移动 目录 ， 会 移动 目录 下 包含 的 全 部 文件 
DeleteFolder 删除 目录 ， 会 删除 目录 下 所 有 文件 ， 并 且 删 除 的 文件 不 会 进入 回收 站 
FolderExists 如 果 指 定 的 文件 夹 存在 ， 返 回 True， 否 则 返回 False 


82 在 文件 中 读 写 数据 


FSO 功能 最 强大 的 部 分 就 是 对 文件 的 操作 ， 可 以 用 来 记 数 、 内 容 管 理 、 搜 索 ， 还 可 以 
用 来 生成 动态 HTML 页 面 等 。 


新 建文 本 文件 需要 使 有 


FileSystemObject 对 象 和 该 对 象 的 CreateTextFile 方法 。 


TextStream 对 象 提供 对 存储 在 磁盘 上 文件 的 访问 ， 能 够 读 出 或 写 入 顺序 文本 文件 。 


8.2.1 


TextStream 对 象 的 方法 和 属性 


TextStream 对 象 必须 通过 FileSystemObject 对 象 进行 实例 化 ， 所 以 可 以 把 TextStream 
对 象 当 作 是 FileSystemObject 对 象 的 子 对 象 。TextStream 对 象 的 方法 及 其 相关 说 明 如 表 8-3 


所 示 。 
表 8-3 TextStream 对 象 的 方法 
5 dk 说 HH 
Close 用 来 关闭 一 个 已 打开 的 数据 流 文件 和 其 对 应 的 文本 文件 
Read 从 打开 的 文本 文件 中 读 取 从 光标 位 置 开 始 的 指定 数目 的 字符 
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( 续 表 ) 
A 2 说 ”有明 
ReadAll 用 来 读 取 一 个 已 打开 的 数据 流 文件 内 的 所 有 数据 
ReadLine 用 来 读 取 一 个 已 打开 的 数据 流 文件 内 的 一 行 数据 
Skip 用 来 跳 过 已 打开 的 数据 流 文件 内 的 字符 数目 
SkipLine 用 来 跳 过 已 打开 的 数据 流 文件 内 的 一 整 行 数据 
Write 用 来 写 入 数据 至 一 个 已 打开 的 数据 流 文件 
WriteLine 用 来 写 入 一 整 行 数据 至 一 个 已 打开 的 数据 流 文件 
WriteBlankLines 用 来 指定 欲 写 入 的 新 行 数目 


TextStream 对 象 的 属性 及 其 相关 说 明 如 表 8-4 所 示 。 


R 性 
AtEndOfLine 
AtEndOfStream 
Column 


Line 


表 8-4 TextStream 对 象 的 属性 


当 光 标 位 于 当前 行 的 末尾 时 ， 其 值 为 True， 和 否则 为 False 
当 光 标 位 于 流 的 末尾 时 ， 其 值 为 Trme， 否 则 为 False 
计算 从 行 首 到 当前 光标 位 置 的 字符 数 

计算 光标 所 在 行 在 整个 文件 中 的 行 号 


822 创建 文本 文件 


创建 或 打开 一 个 文本 文件 并 返回 TextStream 对 象 可 使 用 CreateTextFile 方法 或 


OpenTextFile 方法 。 
1. CreateTextFile 方法 


用 CreateTextFile 方法 创建 新 的 文本 文件 , 或 覆盖 一 个 已 存在 的 文件 返回 的 TextStream 


对 象 可 用 来 读 写 文件 ， 其 语法 结构 如 下 : 


Object.CreateTextFile(filename[.overwrite[.unicode]]) 


HH, Object 应 为 FileSystemObject 8X Folder 对 象 的 名 称 。filename 是 字符 串 ， 用 于 指 
明 待 创建 的 文件 。overwrite 指明 是 否 可 覆盖 已 有 的 文件 ， 若 设 为 True， 则 可 以 覆盖 ; 若 设 


为 False( 默 认 )， 则 不 能 覆盖 。 


unicode 指明 是 以 unicode 格式 还 是 以 ASCII 格式 创建 文件 ， 


若 设 为 True， 则 以 unicode 格式 创建 ; 若 设 为 False( 默 认 )， 则 以 ASCI 格式 创建 。 


【练习 8-1】 使 上 


<% 


CreateTextFile 方法 在 真实 路 径 指定 的 位 置 创建 一 个 空 的 文本 文件 。 
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Dim fso.fil 

Set fso-Server.CreateObject("Scripting.FileSystemObject") 
Set fil-fso.CreateTextFile("D: My webs\test1.txt", True) 
%> 


注意 : 

通过 FSO 打开 了 驱动器、 文件 夹 和 文件 ， 只 能 使 用 指定 的 绝对 物理 路 径 地 址 。 而 文本 文 
件 创建 的 位 置 常 需要 使 用 虚拟 路 径 来 指定 ， 因 为 这 样 可 便于 将 应 用 程序 转移 到 不 同 的 计算 
机 上 运行 ， 所 以 对 虚拟 路 径 常 使 用 ServerMapPath() 方 法 将 其 转化 为 真实 路 径 。 


2. OpenTextFile 方法 


用 OpenTextFile 方法 可 打开 一 个 已 有 的 文本 文件 ， 也 可 创建 一 个 文本 文件 。 它 返回 一 
个 TextStream 对 象 ， 可 用 这 个 对 象 对 文件 读 或 追加 数据 。 


Object.OpenTextFile(filename[.iomode[.create[.format]]]) 


Kp, Object 应 为 FileSystemObject 对 象 的 名 称 ; filename 是 字符 串 ， 用 于 指明 待 创建 
的 文件 ，iomode 用 于 指定 输入 /输出 模式 ， 取 值 为 1( 以 只 读 模式 打开 ， 不 能 对 文件 进行 写 
操作 )、2( 以 只 写 方式 打开 ， 不 能 对 文件 进行 读 操 作 ) 或 8( 以 追加 方式 打开 ， 可 以 在 文件 末 
尾 进行 写 操作 ); create 指出 文件 不 存在 时 是 否 创 建 , 默认 是 False, 若 要 创建 , 可 设 为 True: 
format 指出 以 何 种 格式 打开 文件 ， 取 值 是 - 2( 以 系统 默认 格式 打开 )、- 1( 以 unicode 格式 
打开 ) 或 0( 以 ASCII 格式 打开 )。 


【练习 8-2】 使 用 OpenTextFile 方法 在 虚拟 路 径 指 定 的 位 置 创建 一 个 空 的 文本 文件 。 


<% 

Dim fso,ts 

Const ForWriting=2 

Set fso-CreateObject("Scripting.FileSystemObject") 

Set fs-fso.OpenTextFile(Server.MapPath("test2.txt").ForWriting,True) 
9o 


8.2.3 添加 数据 到 文本 文件 


文本 文件 一 经 创建 ， 就 可 以 分 3 步 向 其 中 加 入 数据 : 即 打开 文件 ， 写 入 数据 ， 关 闭 文 
件 。 打 开 文 件 的 方法 有 两 种 ， 第 一 种 是 用 File 对 象 的 OpenAsTextStream 方法 ， 第 二 种 是 
用 FileSystemObject 对 象 的 OpenTextFile 方法 。 

打开 文件 后 ， 就 可 以 用 TextStream 对 象 的 Write 或 WriteLine 方法 写 入 数据 ， 两 者 间 
的 唯一 差别 是 WriteLine 方法 会 在 字符 串 的 末尾 添加 换行 符 。 如 果 想 在 文本 文件 中 添加 一 
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个 空 行 ， 可 使 用 WriteBlankLines 方法 。 
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对 文本 文件 的 操作 进行 完成 后 ， 要 使 用 TextStream 对 象 的 Close 方法 关闭 文件 。 
【练习 8-3】 创 建 一 个 文本 文件 ， 并 写 入 文本 和 空 行 ， 创 建 后 的 文本 如 图 8-1 所 示 。 


<% 

Dim fso,fil 

Set fso-CreateObject("Scripting.FileSystemObject") 
Set fil-fso.CreateTextFile(Server.MapPath("test3.txt"). True) 
fil. Write("*** 58 — 6) 3C Ae") 

人 0.WriteLine("*** 第 二 句 带 换行 符 的 文本 ") 

全 .WriteLine("*** 第 三 句 带 换行 符 的 文本 ") 

fil WriteBlankLines(2) ' 写 入 两 个 空白 行 

fil. Write("** 48 6) 3c dk") 

filClose “关闭 文件 

%> 


P tost i3 
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第 四 全 文本 


图 8-1 添加 数据 到 文本 文件 


8.24 读 取 文本 文件 


要 从 文本 文件 中 读 取 


数据 ， 可 以 使 用 TextStream 对 象 的 Read. ReadLine 或 ReadAll 


方法 。Read 方法 从 文本 文件 中 读 取 指定 数量 的 字符 ; ReadLine 方法 读 取 一 整 行 , 但 不 包括 
换行 符 ，ReadAll 方法 读 取 一 个 文本 文件 的 所 有 内 容 。 
在 使 用 Read 或 ReadLine 方法 时 ， 还 可 以 用 Skip 方法 跳 过 几 个 字符 ， 或 用 SkipLine 


方法 跳 过 几 行 。 
【练习 8-4] 分别 使 月 


H Read, ReadLine 或 ReadAll 方 法 读 取 【 练 习 8-3】 所 创建 的 文本 


文件 (test3.txb 的 内 容 ， 程 序 运行 效果 如 图 8-2 所 示 。 
(1) 将 如 图 8-1 所 示 的 test3.txt 文 件 复制 至 CAInetpubwwwroot X ft X F. 
(2) 创建 一 个 名 为 read.asp 的 文件 ， 其 代码 如 下 所 示 ( 如 图 8-3 所 示 ): 
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<% 

Dim fso,f1,ts,s1,s2 

Const ForReading=1 

Set fso=CreateObject("Scripting.FileSystemObject") 

Set ts=fso.OpenTextFile(Server.MapPath("test3.txt"),ForReading) 
sl=ts.Read(3) 

Response.Write "文件 的 前 三 个 字符 内 容 是 : "&sl&"" 
Response.Write "<Br><Br>" 

ts.Skip(5) ' 从 当前 位 置 往 后 跳 过 5 个 字符 
s2-ts.ReadLine 

Response. Write "第 一 行 剩 下 的 内 容 是 : "&s2&""&"<Br><Br>" 
Response. Write "文本 剩 下 的 内 容 是 : "&etsReadAll&""&"<Br>" 
ts.Close 

%> 


(3) 将 read.asp 文件 保存 至 C:\Inetpubvwwwroot X fF X P. 
(4) 启动 正 浏 览 器 后 ， 在 地 址 栏 中 输入 http://localhost/read.asp 并 按 Enter 键 ， 效 果 如 
图 8-2 所 示 。 


Xv ARO EEV GRAW IAD Hk) 
à * ewe 


|] 9-89 9-zxm- kj 
文 作 的 前 三 个 字符 闪 容 是 ，“we rite'tbyhellac/bytiywarldc/80 

mW. "eye cR Ate server Mn encodo C" heLC/» Coworidc) 
JURÉUFBEVER, Ce AWRREDATORE r+ 第 办 名 六 不 manort ing" 

te server .ALencedet "Hanjing and Beijing") 


图 8-2 read.asp 的 效果 图 8-3 read.asp 的 代码 


8.3 ”对 文件 进行 的 各 种 操作 


File 对 象 提供 了 对 文件 属性 的 访问 ， 通 过 它 的 方法 能 够 对 文件 进行 操作 。File 对 象 允 
许 复制 、 删 除 以 及 移动 文件 ， 还 可 以 检测 文件 是 否 存在 并 查看 文件 具有 什么 属性 。 


8.8.4 File 对 象 的 属性 与 方法 


File 对 象 的 属性 及 其 相关 说 明 如 表 8-5 所 示 。 


第 8 章 ASP 的 文件 处 理 *€MI* 


表 8-5 File 对 象 的 属性 及 说 明 


属 性 说 mH 

设置 或 返回 文件 的 系统 属性 。 可 以 是 下 列 值 中 的 一 个 或 其 组 合 0( 表 示 普 通 文件 )、 

Attributes 1( 表 示 只 读 文件 )、2( 表 示 隐 藏 文件 )、 4( 表 示 系 统 文件 )、16( 表 示 文 件 夹 或 目录 )、32( 表 
示 上 次 备份 后 已 更 改 的 文件 )、1024( 表 示 链 接 或 快捷 方式 ) 和 2048( 表 示 压 缩 文件 ) 

DateCreated 返回 该 文件 的 创建 日 期 和 时 间 

DateLastAccessed | 返回 最 后 一 次 访问 该 文件 的 日 期 和 时 间 

DateLastModified | 返回 最 后 一 次 修改 该 文件 的 日 期 和 时 间 

Drive 返回 该 文件 所 在 的 驱动 器 的 Drive 对 象 

Name 设 定 或 返回 文件 的 名 称 

ParentFolder 返回 该 文件 的 父 文件 夹 的 Folder X 

Path 返回 文件 的 绝对 路 径 ， 可 使 用 长 文件 名 

ShortName 返回 按照 早期 8.3 文件 命名 约定 转换 的 短文 件 名 

ShortPath 返回 按照 早期 8.3 文件 命名 约定 转换 的 短文 件 绝对 路 径 

Size 返回 该 文件 的 大 小 ( 字 节 ) 

Type 如 果 可 能 ， 返 回 一 个 文件 类 型 的 说 明 字符 串 


每 个 Folder 对 象 提供 了 一 个 Files 集合 ， 包 含 文件 夹 中 文件 对 应 的 File 对 象 。 还 可 以 
直接 地 从 FileSystemObject 对 象 中 通过 使 用 GetFile 方法 得 到 一 个 File 对 象 引用 。 

File 对 象 的 方法 允许 复制 、 删 除 以 及 移动 文件 ， 它 有 一 个 使 用 文本 流 打开 文件 的 方法 。 
File 对 象 的 方法 及 说 明 如 表 8-6 所 示 。 


表 8-6_File 对 象 的 方法 及 说 明 


5 X 说 — 阴 
将 这 个 文件 复制 到 destination 指定 的 文件 夹 。 如 果 destination 的 末尾 是 路 径 分 
Copy(destination, EEN. WAUH destination. 是 放置 复制 文件 的 文件 来。 否则 认为 destination 
overwrite) 是 要 创建 的 新 文件 的 路 径 和 名 字 。 如 果 目 标 文件 夹 已 经 存在 且 overwrite 参数 设 
置 为 False， 将 产生 错误 ， 默 认 的 overwrite 参数 是 True 
删除 这 个 文件 。 如果 可 选择 的 force 参数 设置 为 True, 文件 即使 具有 只 读 属性 也 
Delete(force) A a . " 
会 被 删除 。 默 认 的 force 是 False 
Move() 将 文件 移动 到 destination 指定 的 文件 夹 
CreateTextFile 用 指定 的 文件 名 创建 一 个 新 的 文本 文件 ， 并 且 返 回 一 个 相应 的 TextStream 对 象 
OpenAsTextStream | 打开 指定 文件 并 且 返 回 一 个 TextStream 对 象 , 用 于 文件 的 读 、 写 或 追加 。Jomode 


参数 指定 了 要 求 的 访问 类 型 。Format 参数 说 明了 读 、 写 文件 的 数据 格式 


iomode:format 


给 定 一 个 File 对 象 后 ， 可 以 使 用 ParentFolder 属性 得 到 包含 该 文件 的 Folder 对 象 的 引 
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用 ， 用 来 在 文件 系统 中 导航 ， 甚 至 可 以 用 Drive 属性 获得 相应 的 Drive 对 象 的 引用 ， 并 得 
到 各 种 Folder 对 象 以 及 所 包含 的 File 对 象 。 

另外 ， 给 定 一 个 Folder 对 象 以 及 对 应 的 Files 集合 后 ， 可 以 通过 遍历 该 集合 检查 这 一 
文件 夹 中 的 每 个 文件 ， 还 可 以 使 用 File 对 象 的 各 种 方法 以 一 定 方式 处 理 该 文件 ， 如 复制 、 
移动 或 删除 。 


8.8.2 移动、 复制 和 删除 文件 


移动 一 个 文件 可 用 File 对 象 的 Move 方法 或 FileSystemObject 对 象 的 MoveFile 方法 ， 
复制 一 个 文件 可 用 File 对 象 的 Copy 方法 或 FileSystemObject 对 象 的 CopyFile 方法 ， 删 除 
一 个 文件 可 用 File 对 象 的 Delete 方法 或 FileSystemObject 对 象 的 DeleteFile 方法 。 


【练习 8-5】 创 建 一 个 文本 文件 (如 test4、txt)， 并 对 它 进行 复制 、 移 动 和 删除 操作 。 
(1) 创建 一 个 名 为 File.asp 的 文件 ， 其 代码 如 下 所 示 : 


<% 
Function ShowCode(filename) 
Set fso = Server.CreateObject("Scripting.FileSystemObject") 
Set cnrs = fso.OpenTextFile(filename, 1) 
While Not cnrs.AtEndOfStream 
rsline — cnrs.ReadLine 
rsline = server HTMLEncode(rsline) 
Response.Write(rsline & "<br>") 
Wend 
end Function 
%> 
<form action="viewcode.asp" method="post"> 
输入 文件 名 <input type="file" name="filename"> 
<input type="submit" value=" 查 看 源 程序 "> 
</form> 
<% 
file=request.form("filename") 
response.write (file & " 源 程序 如 下 <hr>") 
If trim(file)— "" then 
Call ShowCode(file) 
End If 
%> 


(2) 将 File.asp 文件 保存 至 Ci\Inetpub\wwwroot 文 件 夹 中 。 


(3) 启动 IE 浏览 器 后 ， 在 地 址 栏 中 输入 http://localhost/File.asp 并 按 Enter 键 ， 效 果 如 
图 8-4 所 示 。 
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(4) €& Fileasp 页 面 中 的 “浏览 ”按钮 ， 然 后 在 打开 的 “选择 文件 ”对 话 框 中 选中 本 
章 【 练 习 8-4】 创 建 的 ASP 程序 文件 read.asp 后 ， 单 击 “ 打 开 ” 按 钮 。 
(5) 单 击 File.asp 页 面 中 的 “查看 源 程序 ”按钮 后 ， 网 页 将 显示 如 图 8-5 所 示 的 ASP 


图 8-4 File.asp 的 效果 图 8-5 显示 程序 源 代码 


8.3.3 ”检测 文件 和 文件 夹 是 否 存在 


使 用 FileSystemObject 对 象 的 FolderExists 和 FileExists 方法 可 以 检测 文件 和 文件 夹 是 
否 存 在 ， 若 存在 ， 则 返回 True， 和 否则 返回 False. 


【练习 8-6】 创 建 一 个 ASP 网 页 ， 检 测 一 个 指定 的 文件 是 否 存在 ， 并 在 网 页 中 返回 相 
应 的 结果 。 
(1) 创建 一 个 名 为 detection.asp 的 文件 ， 其 代码 如 下 所 示 : 


<% 

Dim fso 

Set fso-Server.CreateObject("Scripting.FileSystemObject") 
If fso.FileExists(Server.MapPath("test1.txt")) Then 
Response. Write Server.MapPath("test1 txt") &" ££ fE" 

Else 

Response. Write Server.MapPath("test].txt")&" 4 f£ E" 
End If 

%> 


(2) 将 detection.asp 文件 保存 至 CInetpubwwwroot X fF X F. 

(3) ÈZ) IE 浏览 器 后 ， 在 地 址 栏 中 输入 http://localhost/detection.asp 并 按 Enter 键 ， 效 
果 如 图 8-6 所 示 。 

(4) 创建 一 个 名 为 testl.asp 的 文本 文件 后 ， 将 其 复制 至 C:\Inetpubvwwwroot 文件 夹 中 ， 
然后 刷新 detection.asp 页 面 ， 网 页 效果 如 图 8-7 所 示 。 
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ENSE] 


QO- Brerna 


XFO SED BET VARU IAD #9 


Xo [eant |a- e-Bgaao- 


ci\inetpub\wrroct\testl. tx RE ci VinetpibVmirzoot Vest. txt 存在 


图 8-6 detection.asp 的 效果 图 8-7 修改 后 的 网 页 效果 


8.8.4. 检测 文件 和 文件 夹 


使 用 File 对 象 和 Folder 对 象 不 仅 可 以 实现 文件 和 文件 夹 的 各 种 检测 操作 , 而且 能 得 到 
文件 和 文件 夹 的 各 种 属性 。 


【练习 8-7】 创 建 一 个 文件 ， 显 示 计 算 机 C: 根 目录 下 的 文件 夹 ， 效 果 如 图 8-8 所 示 。 
(1) 创建 一 个 名 为 Folder.asp 的 文件 ， 其 代码 如 下 所 示 : 


<% 
dim objfilesys 

dim mydrive 
dim myfolder 
set objfilesys=server.createobject("scripting.filesystemobject") 
set mydrive=objfilesys.getdrive("c") 
set myfolder=mydrive.rootfolder 
set myfolder-myfolder.subfolders 
response.write "c 盘 根 目 录 下 有 "&myfolder.count&" 个 文件 夹 <br>" 
for each folder in myfolder 
response.write " 子 文件 夹 "&folder.name&"<br>" 
next 


%> 


(2) 将 Folder.asp 文件 保存 至 CInetpubwwwroot 文件 夹 中 。 
(3) 启动 IE 浏览 器 后 ， 在 地 址 栏 中 输入 http://localhost/Folder.asp 并 按 Enter 键 ， 效 果 
如 图 8-9 所 示 。 
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图 8-8 ”Folderasp 的 效果 图 8-9 Folderasp 的 代码 


【练习 8-8】 创 建 一 个 文件 , 并 显示 这 个 文件 的 各 属性 值 , 程序 运行 效果 如 图 8-10 所 示 。 
(1) 在 Ci\InetpubWwwwroot 文件 夹 中 创建 一 个 test5.txt 文件 。 
(2) 创建 一 个 名 为 Folder2.asp 的 文件 ， 其 代码 如 下 所 示 : 


<Title> 检 查 文件 属性 </Title> 

<Center><H2> 查 看 文件 的 属性 </H2></Center> 
<H> 

<% 

whichfile-Server.MapPath("test5.txt") 

Set fso = CreateObject("Scripting.FileSystemObject") 
Set fl = fso.CreateTextFile(whichfile.true) 

fl. Write ("这 是 一 个 测试 文件 .") 

fl.Close 

Set f2 = fso.GetFile(whichfile) 


s= "文件 名 称 : " & f2.name & "<br>" 

s=s& "文件 短路 径 名 : " & f2.shortPath & "<br>" 
s=s & "文件 物理 地 址 : " & f2.Path & "<br>" 

s=s & "文件 属性 : " & f2.Attributes & "<br>" 

s=s 及" 文件 大 小 : " & f2.size & "<br>" 

s=s & "文件 类 型 : " & £2.type & "<br>" 

s=s & "文件 创建 时 间 : " & f2.DateCreated & "<br>" 
s=s & "最近 访问 时 间 : " & f2.DateLastAccessed & "<br>" 
s=s & "最 近 修 改 时 间 : " & f2.DateLastModified 
response.write(s) 

%> 


(3) 将 Folder2.asp 文件 保存 至 C:\InetpubWwwwroot 文件 夹 中 。 
(4) 启动 正 浏览 器 后 ， 在 地 址 栏 中 输入 http://localhost/Folder2.asp 并 按 Enter 键 ,效果 
如 图 8-11 所 示 。 


* 146* ASP 动态 网 站 开发 教程 (第 三 版 ) 


图 8-10 Folderasp 的 效果 图 8-11 Folder2.asp 的 代码 


注意 : 

在 运行 本 节 实 例 时 ， 右 击 CAmetpubwwwroot 文件 夹 ， 在 弹出 的 快捷 菜单 中 选择 “ 必 
性 ”命令 ， 打 开 “ 属 性 ”对 话 框 。 选 择 “ 安 全 ”选项 卡 ， 并 将 use 或 everyone 用 户 的 权限 
全 部 选中 。 


【练习 8-9】 用 文本 文件 编写 一 个 站 点 计数 器 ， 程 序 运行 效果 如 图 8-12 所 示 。 


图 8-12 计数 器 效果 


(1) 在 Ci\Inetpub\wwwroot 文件 夹 中 创建 一 个 名 为 num 的 子 文件 夹 ， 然 后 将 如 图 8-13 
所 示 的 图 片 文件 复制 至 该 文件 夹 内 。 
EENREIEINBISSIEINEE 


图 8-13 复制 图 片 文件 


(2) 创建 一 个 名 为 Folder3.asp 的 文件 ， 其 代码 如 下 (如 图 8-14 T): 
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<Title> 计 数 器 示例 </Title> 
<Center><H2> 计 数 器 示例 </H2></Center> 
<Hr> 

<% 

dim fso,f.i,counts,length 

Const ForReading = 1 

Const ForWriting = 2 


Set fso — Server.CreateObject("Scripting.FileSystemObject") 
if not fso.FileExists(Server.MapPath("count.log")) then 
Set f — fso.CreateTextFile(Server.MapPath("count.log")) 
f£ WriteLine "0" 
f.Close 
end if 
Set f= fso.OpenTextFile(Server.MapPath("count.log"), ForReading) 
rd = f. ReadLine 
counts = CLng(rd) 
f.Close 


' 用 户 首次 访问 时 ，Session("Counts") 为 空 ， 计 数 器 加 1 
if Session("Counts") = "" then 
counts = counts + 1 
Session("Counts") — counts 
Set f = fso.CreateTextFile(Server.MapPath("count.log"), True) 
f. WriteLine(counts) 
f.Close 
end if 


length = len(counts) 
for i= 1 to 8 - length 
Response.Write "<IMG SRC=num\0.gif></IMG>" 
next 
for i= 1 to length 
Response.Write "<IMG SRC=" & "num!" & mid(counts.i,1) & ".gif></IMG>" 
next 
%> 


(3) 将 Folder3.asp 文件 保存 至 C:\Inetpub\wwwroot 文 件 夹 中 。 
(4) 启动 正 浏 览 器 后 ， 在 地 址 栏 中 输入 http://localhost/Folder3.asp 并 按 Enter 键 ,效果 
如 图 8-12 所 示 。 
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图 8-14 Folder3.asp 的 代码 


8.4 获得 驱动 器 的 信息 


通过 Drives 对 象 提 供 的 属性 , 可 以 获得 系统 上 各 个 驱动 器 有 关 的 信息 , 这 些 驱 动 器 可 以 
是 物理 的 或 通过 网 络 逻 辑 连 接 到 系统 上 的 。Drives 对 象 的 属性 及 其 相关 说 明 如 表 8-7 所 示 。 


表 8-7_Drive 对 象 的 属性 及 说 明 


属 性 说 了 明 
AvailableSpace 返回 驱动 器 对 于 该 用 户 可 用 的 空间 大 小 
DriveLetter 返回 驱动 器 的 字母 
DriveType 返回 驱动 器 的 类 型 。 如 可 移动 的 、 固 定 的 、 网 络 、CD-ROM PÈ RAM fit 
FileSystem 返回 驱动 器 文件 系统 的 类 型 。 返 回 值 包括 FAT 和 NTFS 等 
FreeSpace 回 驱 动 器 可 用 剩余 空间 的 总 量 


返 
IsReady 返回 一 个 布尔 值 ， 表 明 驱 动 器 是 否 已 准备 好 
Path 返回 一 个 由 驱动 器 字母 和 冒号 组 成 的 驱动 器 路 径 ， 如 C: 
返 
返 
如 


RootFolder 回 代表 驱动 器 根 目录 文件 夹 的 Folder 对 象 
SerialNumber 回 一 个 用 于 识别 磁盘 卷 的 十 进 制 的 序列 号 
ShareName 果 是 一 个 网 络 驱动 器 ， 返 回 该 驱动 器 的 网 络 共享 名 
TotalSize 返回 驱动 器 的 总 容量 (以 字 节 为 单位 ) 

VolumeName 设 定 或 返回 本 地 驱动 器 卷 名 


【练习 8-10] 使 用 Drives 对 象 显示 系统 上 所 有 驱动 器 的 信息 ,程序 运行 效果 如 图 8-15 
所 示 。 
(1) 创建 一 个 名 为 Drives.asp 的 文件 ， 其 代码 如 下 所 示 ( 如 图 8-16 所 示 ): 
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<title> 检 测 驱动 器 </Title> 
<Center><H2> 您 的 计算 机 上 各 驱动 器 相关 信息 </H2> 
<Hr> 

<% 

Function tran(Driver) 

Select Case Driver 

Case 0: tran=" 设 备 无 法 识别 " 
Case 1: tran=" 软 盘 驱 动 器 " 
Case 2: tran=" 硬 盘 驱 动 器 " 
Case 3: tran=" 网 络 硬盘 驱动 器 " 
Case 4: tran=" 光 盘 驱 动 器 " 
Case 5: tran-"RAM 虚拟 磁盘 " 
End Select 

End Function 

set fso-Server.CreateObject("Scripting.FileSystemObject") 
%> 

<table border=1 width="100%"> 
<tr> 

<td> 盘 符 </td> 

<td> 类 型 </td> 

<td> 卷 标 </td> 

<td> 总 计 大 小 </td> 

<td> 可 用 空间 </td> 

<td> 文 件 系统 </td> 

<td> 序 列 号 </td> 
<td> 是 否 可 用 </td> 

<td> 路 径 </td> 

«tr» 

«96 
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"如 果 系统 的 某 个 驱动 器 中 没有 磁盘 ， 例 如 软驱 中 无 软盘 或 CD-ROM 驱动 器 里 没有 光盘 ， 


"将 得 到 一 个 错误 提示 : “驱动 器 不 存在 ” 
"使 用 错误 处 理 语 句 可 强行 将 程序 跳 转 去 检查 下 一 驱动 器 
on error resume next 
For each drv in fso.Drives 
Response. Write "<tr>" 
Response. Write "<td>" & drv.DriveLetter & "</td>" 
Response.write "<td>" & tran(drv.DriveType) & "</td>" 
Response.write "<td>" & drv.VolumeName & "</td>" 


Response.write "<td>" & FormatNumber(drv.TotalSize / 1024, 0)& "</td>" 
Response.write "<td>" & FormatNumber(drv.Availablespace / 1024, 0) & "</td>" 


Response.write "<td>" & drv.FileSystem & "</td>" 
Response.write "<td>" & drv.SerialNumber & "</td>" 
Response.write "<td>" & drv.IsReady & "</td>" 
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Response.write "<td>" & drv.Path & "</td>" 
Response. Write "</tr>" 

Next 

set fs-nothing 

%> 

</table></Center> 


(2) 将 Drives.asp 文件 保存 至 C:\InetpubWwwwroot 文 件 夹 中 。 
(3) 启动 正 浏 览 器 后 ， 在 地 址 栏 中 输入 http://localhost/Drives.asp 并 按 Enter 键 ， 效 果 
如 图 8-15 所 示 。 
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图 8-15 Drives.asp 的 效果 图 8-16 Drives.asp 的 代码 


8.5 ”对 文件 夹 进行 操作 
通过 Folder 对 象 提供 的 属性 和 方法 ， 可 对 文件 夹 进行 各 种 操作 ， 其 中 包括 提取 文件 夹 
信息 ， 创 建 、 删 除 、 复 制 和 移动 文件 夹 等 。 


8.5.4 Folder 对 象 的 属性 


Folder 对 象 提供 一 组 属性 ， 可 用 这 些 属 性 得 到 关于 当前 文件 夹 的 更 多 信息 ， 也 可 以 改 
变 该 文件 夹 的 名 称 。Folder 对 象 的 属性 及 其 相关 说 明 如 表 8-8 所 示 。 


表 8-8 Folder 对 象 的 属性 及 说 明 


属 性 说 了 明 
返回 文件 夹 的 属性 。 可 以 是 下 列 值 中 的 一 个 或 其 组 合 , 正常 为 0, 只 读 为 1， 
Attributes 


隐藏 为 2， 系 统 为 4， 卷 为 8， 文件 夹 为 16， 存 档 为 32， 别 名 为 64， 压 缩 
为 128。 例 如 ， 一 个 隐藏 的 只 读 文件 ，Attributes 的 值 为 2 
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( 续 表 ) 
属 性 说 m" 

DateCreated 返回 该 文件 夹 的 创建 日 期 和 时 间 
DateLastAccessed 返回 最 后 一 次 访问 该 文件 夹 的 日 期 和 时 间 
DateLastModified 返回 最 后 一 次 修改 该 文件 夹 的 日 期 和 时 间 
Drive 返回 该 文件 夹 所 在 的 驱动 器 字母 
Files 3& [nl Folder 对 象 包含 的 Files 集合 ， 表 示 该 文件 夹 内 所 有 的 文件 
IsRootFolder 返回 一 个 布尔 值 ， 说 明 该 文件 夹 是 否 是 当前 驱动 器 的 根 文件 夹 
Name 设 定 或 返回 文件 夹 的 名 字 
ParentFolder 返回 该 文件 夹 的 父 文件 夹 对 应 的 Folder 对 象 
Path 返回 文件 夹 的 绝对 路 径 ， 使 用 相应 的 长 文件 名 
ShortName 返回 按照 早期 8.3 文件 命名 约定 转换 的 短文 件 名 
ShortPath 返回 按照 早期 8.3 文件 命名 约定 转换 的 短文 件 绝 对 路 径 
Size 返回 包含 在 该 文件 夹 中 所 有 文件 和 子 文件 夹 的 大 小 

返回 该 文件 夹 内 包含 的 所 有 子 文件 夹 对 应 的 Folders 集合 , 包括 隐藏 文件 夹 
SubFolders 

和 系统 文件 夹 
Type 如 果 可 能 ， 返 回 一 个 文件 夹 类 型 的 说 明 字符 串 ， 例 如 ，RecycleBin 


8.5.2 Folder 对 象 的 方法 


Folder 对 象 提供 一 组 可 用 于 复制 、 删 除 和 移动 当前 文件 夹 的 方法 。 这 些 方法 的 运行 方 
式 与 FileSystemObject 对 象 的 CopyFolder、DeleteFolder 和 MoveFolder 方法 相同 。 但 Folder 
对 象 的 方法 不 要 求 source 参数 ， 因 为 源 文件 就 是 这 个 文件 夹 。Folder 对 象 的 方法 及 其 相关 


说 明 如 表 8-9 所 示 。 
表 8-9_Folder 对 象 的 方法 及 说 明 
方 ” 法 说 B 
Copy(destination, overwrite 将 这 个 文件 夹 及 里 面 所 有 的 内 容 复 制 到 destination 指定 的 文件 夹 
Delete(force) 删除 文件 夹 及 里 面 的 所 有 内 容 
Move(destination) 将 文件 夹 及 里 面 所 有 的 内 容 移动 到 destination 指定 的 文件 夹 
CreateTextFile 用 指定 的 文件 名 在 文件 夹 内 创建 一 个 新 的 文本 文件 ， 并 且 返 回 


filename,overwrite.unicode 


一 个 相应 的 TextStream 对 和 象 


【练习 8-11】 使 用 Folder 对 象 执行 建立 和 删除 文件 夹 操 作 ， 程 序 运行 效果 如 图 8-17 


所 示 。 


(1) 创建 一 个 名 为 Folder4.asp 的 文件 ， 其 代码 如 下 所 示 : 
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<%@ Language=VBScript %> 
<% 
Sub CreateAFolder(file) 
Dim fso 
Set fso = CreateObject("Scripting.FileSystemObject") 
fso.CreateFolder(file) 
response.write "已 经 建立 了 "&file 
End Sub 
Sub DeleteAFolder(file) 
Dim fso 
Set fso = CreateObject("Scripting.FileSystemObject") 
fso.DeleteFolder(file) 
response.write "已 经 删除 了 "&file 
End Sub 
%> 
<% 
subname=request.form("submit") 
create=request.form("create") 
del-request.form("del") 
if subname<>"" then 
if create<>"" then 
call CreateAFolder("" &create& "") 
end if 
if del<>"" then 
call DeleteAFolder(""&del&"") 
end if 
end if 
%> 
«form action="<%=Request.ServerVariables("Script_Name")%>" method="post"> 
<input name="create"> 
<input type="submit" value=" 建 立 一 个 文件 夹 " name="submit"> 
</form> 
<hr> 
«form action="<%=Request.ServerVariables("Script_Name")%>" method="post"> 
«input name="del"> 
«input type="submit" value=" 删 除 文件 夹 " name="submit"> 
</form> 


(2) 将 Folder4.asp 文件 保存 至 Ci:\Inetpub\wwwroot 文 件 夹 中 。 

(3) 启动 正 浏览 器 后 ， 在 地 址 栏 中 输入 http://localhost/Folder4.asp 并 按 Enter 键 ,效果 
如 图 8-17 所 示 。 

(4) 在 Folder4.asp 页 面 的 第 一 个 对 话 框 中 输入 Ci\Inetpub\Wwwwroot\test 后 , 单 击 “ 建 立 
一 个 文件 夹 ”按钮 ,程序 将 自动 在 CAInetpubwwwroot 文件 夹 中 创建 一 个 子 文件 夹 test， 如 
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图 8-18 所 示 。 
(5) 在 Folder4.asp 页 面 的 第 二 个 对 话 框 中 输入 C:\Inetpubvwwwrootvtest 后 ， 单 击 “删除 
XR” 


图 8-17 Folder4.asp 的 效果 图 8-18 创建 文件 夹 


8.6.1 填空 题 


(D FSO 组 件 可 以 用 来 对 、 以 及 文件 等 对 象 进行 相关 的 处 理 操作 。 

(2) 使 用 FSO 编程 ， 首 先 要 用 方法 创建 FileSystemObject 对 象 。 

(3) TextStream 对 象 的 方法 用 来 写 入 一 整 行 数据 至 已 打开 的 数据 流 文件 。 
8.6.2 ”选择 题 


O 下 面 不 能 创建 或 打开 一 个 文本 文件 并 返回 TextStream 对 象 的 方法 是 ( 。 )。 
A. CreateTextFile 方法 
B. WriteBlankLines 方法 
C. OpenAsTextStream 方法 
D. OpenTextFile 方法 
(2) 下 面 可 打开 文件 的 方法 有 ( 0) 
A. File 对 象 的 OpenAsTextStream 方法 
B. FileSystemObject 对 象 的 OpenAsTextStream 方法 
C. File 对 象 的 OpenTextFile 方法 
D. TextStram 对 象 的 OpenAsTextStream 方法 
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(3) 下 面 不 能 从 文本 文件 中 读 取 数 据 的 有 ( ” )。 
A. TextStream 对 象 的 Read 方法 
B. TextStream 对 象 的 ReadLine 方法 
C. TextStream 对 象 的 ReadAIl 方法 
D. TextStream 对 象 的 OpenAsTextStream 方法 


8.6.3 问答 题 


(1) 什么 是 File Access 组 件 的 FSO 对 象 ? 
(2) 如 何 打 开 文 本 文件 并 添加 数据 ? 


8.64 操作 题 


(1) 列表 显示 站 点 根 目录 中 的 文件 夹 和 文件 ， 程 序 运行 效果 如 图 8-19 所 示 。 
Q) 编制 一 个 语句 接龙 页 面 ， 程 序 运行 效果 如 图 8-20 所 示 。 


站 点 根 目录 中 的 子 文件 夹 列表 如 下 ， 


D:\y webs\test 你 
x ANA goth; 1 mtmake you cry. 投 有 人 值得 你 流泪 ， 傅 得 


站 点 根 目 录 中 的 文件 列表 如 下 ， 


t beride hem knowing you cant have hem 失去 某 人 ， 最 


know who is fiting n love wih your mie 9t 


My webs\7- 习 题 二 -列表 . asp 

:NIy websNT-1- 建 立 文本 . 

My websV7-2- 建 立交 本 2. asp 
EARE, ap 
IERIE. ap 


a [E Domt ry sc hard, the best things come whon you least expect ti) 


图 8-19 网 页 效果 1 图 8-20 网 页 效果 2 
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数据 库 是 管理 大 量 、 一 致 、 可 靠 、 共 享 、 持 久 的 数据 资源 的 计算 机 软件 产品 。 数 据 库 
软件 是 动态 网 站 实现 互动 效果 的 一 个 非常 重要 的 核心 组 件 ， 是 支撑 以 电子 商务 、 网 上 论坛 
和 信息 发 布 为 代表 的 一 系列 网 络 服务 的 坚强 支柱 。 在 动态 网 页 的 开发 工作 中 , 应 用 ASP 内 
建 的 Database Access 组 件 , 可 以 非常 方便 地 通过 ActiveX Date Objects(ADO) 对 象 访 问 存储 
在 服务 器 端的 数据 库 中 的 信息 。 

通过 本 章 的 理论 学 习 和 练习 ， 用 户 应 了 解 和 掌握 以 下 内 容 : 

了 解数 据 库 的 概念 和 常用 术语 
了 解 ADO 数据 模型 

掌握 创建 Connection 对 象 的 方法 
掌握 Command 对 象 的 基本 用 法 
掌握 创建 记录 集 的 方法 


91 应 用 Access 数据 库 


数据 库 的 主要 功能 是 存储 与 管理 数据 ， 在 目前 市 面 上 存在 的 多 种 形式 的 数据 库 产品 
中 , 关系 型 数据 库 最 受 欢迎 并 被 广泛 使 用 。 该 类 数据 库 将 数据 按 类 别 存 储 在 各 种 数据 表 中 ， 
并 且 通 过 数据 表 之 间 的 关联 进行 数据 的 调整 和 搜索 等 维护 操作 。 


9.1.1 快速 掌握 Microsoft Access 


Access 数据 库 是 目前 比较 流行 的 数据 库 管 理 系统 , 它 是 一 个 运行 在 Windows 系统 环境 
下 的 桌面 关系 型 数据 库 ， 也 是 Office XP 的 组 件 之 一 。 下 面 将 围绕 几 个 与 创建 Access 数据 
库 相 关 的 问题 进行 讲述 ， 以 便 用 户 对 该 数据 库 的 应 用 有 个 概括 的 了 解 。 

1. Access 数据 库 简 介 


Access 数据 库 属于 比较 简单 的 小 型 数据 库 系统 ， 一 般 用 于 小 型 公司 的 数据 管理 。 其 基 
本 数据 库 观 念 与 其 他 大 型 数据 库 系 统 (如 Oracle 和 SQL Server 等 ) 并 没有 太 大 的 差别 。 

在 启动 Microsoft Access 2003 后 ， 用 户 首先 看 到 的 是 版 权 信息 ， 选 择 “ 文 件 ” | 新建” 
命令 创建 一 个 库 文 件 后 ， 就 可 以 进入 如 图 9-1 所 示 的 工作 界面 。Access 2003 的 工作 界面 包 
括 菜单 栏 、 工 具 栏 、 工 作 区 和 状态 栏 等 几 个 部 分 。 
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图 9-1 Microsoft Access 2003 的 工作 界面 


2. 创建 数据 库 


Access 数据 库 将 数据 按 类 别 存 储 在 不 同 的 数据 表 中 ， 以 方便 数据 的 管理 和 维护 。 用 户 
要 设计 数据 表 ， 首 先 要 创建 一 个 数据 库 。 下 面 将 以 一 个 简单 的 实例 ， 详 细 介 绍 建立 Access 
2003 数据 库 的 操作 步骤 。 


【练习 9-1] Æ C:\Inetpub\wwwroot 目录 中 新 建 一 个 名 为 AcDatabase 的 目录 ， 然 后 
利用 Access 2003 数据 库 软 件 创建 一 个 名 为 dbl 客户 信息 数据 库 ， 并 将 其 保存 在 新 建 的 
目录 中 。 

(1) 打开 CAInetpubwwwroot 目录 ， 选 择 “ 文 件 ”|“ 新 建 ”|“ 文 件 夹 ”命令 ， 创 建 一 
个 名 为 AcDatabase 的 子 目录 。 

(2) 选择 “开始 ”|“ 程 序 ”| Microsoft Office| Access 2003 命令 ， 启 动 Access 2003 数据 
库 ， 然 后 选择 “文件 ” |“ 新 建 ”命令 ， 打 开 “ 新 建文 件 ” 对 话 框 ， 如 图 92 所 示 。 

(3) 单 击 “ 空 数据 库 ”链接 ， 在 打开 的 “文件 新 建 数据 库 ” 对 话 框 的 “保存 位 置 ”下 
拉 列 表 框 中 选择 步骤 (1) 所 创建 的 AcDatabase 目录 ， 在 “文件 名 ”文本 框 中 输入 db1( 如 图 
9-3 所 示 )， 然 后 单 击 “ 创 建 ”按钮 。 


. . |8-a|8 EET 


PELI 

DES TELI 

dij 合用 现 有 数据 的 项 目 
dj emesa 
Qn 根据 现 有 文件 


| - ] 
SP Office Online 模板 
本 机 上 的 模板 ..- 


图 9-2 “新 建文 件 ” 对 话 框 图 9-3 “文件 新 建 数 据 库 ” 对 话 框 
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(4) 在 打开 的 Access 2003 工作 界面 的 工作 区 域 中 选择 “对 象 ” 列表 框 中 的 “ 表 ” 选 项 ， 
然后 在 对 话 框 右 侧 的 选项 区 域 中 双击 “使 用 设计 器 创建 表 ” 选 项 (如 图 9-4 所 示 )， 打 开 数 
据 表 “ 表 1” 的 设计 检视 窗口 。 

(5) 设置 数据 表 中 字段 的 结构 。 首 先 在 “ 表 1” 的 设计 检视 窗口 的 “字段 名 称 ” 列 的 第 
一 个 单元 格 中 输入 C-Id， 在 其 后 的 “数据 类 型 ”下 拉 列 表 中 选择 “自动 编号 ”选项 (如 图 
9-5 所 示 )， 在 “说 明 ” 列 的 第 一 个 单元 格 中 输入 对 表格 字段 的 描述 文本 。 


网 打开 erv amen |X |3 7| 


E] 
Hj] eese 
B] mures 


AMAA: 


图 9-4 设置 数据 库 图 9-5 设置 数据 表 字 段 结构 


(6) 右 击 C-Id 字段 ， 在 弹出 的 快捷 菜单 中 选择 “主键 ” 命令， 为 C-Id 字段 前 添加 出 | 标 
志 ， 将 该 字段 设置 为 主键 ， 如 图 9-6 所 示 。 

(7) 在 “ 表 1” 的 设计 检视 窗口 第 2 行 的 “字段 名 称 ” 中 输入 C-Name， 在 “数据 类 型 
下 拉 列 表 中 选择 “文本 ”， 在 “说 明 ” 中 输入 对 表格 字段 的 描述 文本 。 

(8) 选中 C-Name 字段 ， 在 下 面 的 “字段 属性 ”选项 区 域 中 选择 “常规 ”选项 卡 。 在 
“字段 大 小 ”文本 框 中 输入 30， 在 “ 必 填 字段 ”下 拉 列 表 中 选择 “是 ”选项 ， 在 “允许 空 
字符 串 ” 下 拉 列 表 中 选择 “和 否 ” 选 项 ， 如 图 9-7 所 示 。 


图 9-6 设置 数据 表 主 键 图 9-7 设置 C-Name 字段 参数 


(9) 重复 步骤 (6) 和 (7) 的 操作 ， 使 用 相同 的 方法 将 如 表 9-1 所 示 的 内 容 输入 到 “ 表 1T 
的 设计 检视 窗口 中 。 
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表 9-1 创建 “ 表 1” 字 段 参照 表 


字段 名 称 | 数 据 类 型 


C-Id 


C-Name 


C-address E 
C-Tel i 30 
C-Mail 客户 E-Mail 20 


(10) 完成 字段 录入 工作 后 ，“ 表 1?” 的 设计 检视 窗口 如 图 9-8 所 示 。 选择 “文件 ”|“ 保 
存 ” 命 令 将 数据 表 保存 。 这 时 ， 在 Access 的 工作 区 域 中 将 会 看 到 数据 表 “ 表 1” 已 经 自动 
添加 在 列表 框 中 ， 如 图 9-9 所 示 。 


Bai : 数据 库 (hccess 2000 文件 格式) 
8H o arp 2880 |X |. 国生 
x» |2 emea 
8] emus 
Hj sorde 
a 


ES EN 


图 9-8 ”完成 字段 创建 后 的 效果 图 9-9 完成 数据 库 的 创建 


注意 : 

Access 数据 库 操 作 非 常 简单 ,该 数据 库 所 创建 的 库 文件 是 一 种 扩展 名 为 mbd 的 特殊 文 
件 ， 如 果 用 户 的 计算 机 上 已 经 安装 了 Access 数据 库 软件 ， 双 击 这 种 文件 就 可 以 直接 打开 
Access 数据 库 的 编辑 窗口 。 


9.1.2 Access 数据 库 基 础 


本 节 将 以 【练习 9-1】 创 建 的 数据 库 dbl 为 基础 ， 介 绍 组 成 Access 数据 库 的 结构 及 功 
能 ， 包 括 数据 库 结 构 、 数 据 表 结构 、 数 据 内容 和 字段 索引 等 内 容 。 
1. 数据 库 结构 

Access 数据 库 通常 包含 多 个 数据 表 。 以 【练习 9-1】 创 建 的 数据 库 为 例 ， 用 户 可 以 按 
照 同样 的 操作 步 又， 在 数据 库 dbl 中 创建 “ 表 2”，“ 表 3”，“ 表 4” 或 任意 名 称 的 数据 
表 ( 如 图 9-10 所 示 )， 但 这 些 表 都 属于 dbl. 
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anto ty mox a [E] 
— ws | dj emaiBüeR 
dj mase 


dj muw nasse 


a - 
ix 属于 DB1 数据 库 
2n 的 4 个 数据 表 


图 9-10 数据 库 的 结构 


注意 : 

关系 型 数据 库 通 常 包含 多 个 内 容 不 同 的 数据 表 ， 并 通过 数据 表 之 间 的 特定 字段 定义 其 
各 自 之 间 的 关系 。 通 过 这 种 关系 ， 可 以 在 不 同 数据 表 中 取得 相关 的 数据 内 容 。 

2. 数据 表 结构 


在 数据 表 中 包含 两 个 重要 的 属性 :字段 名 称 和 数据 类 型 。 字 段 名 的 作用 是 在 数据 表 中 
识别 字段 ， 而 数据 类 型 则 是 该 字段 所 能 存储 的 数据 类 型 ， 例 如 文字 、 数 字 和 日 期 时 间 等 。 
用 户 可 以 在 数据 库 工 作 区 中 选中 某 个 数据 表 ， 然 后 单 击 “ 设 计 ” 按 钮 区 加 ， 打 开 表 的 设 
计 检 视窗 口 ， 对 数据 表 的 属性 进行 调整 。 

如 图 9-11 所 示 就 是 【练习 9-1】 所 创建 的 数据 表 “ 表 1” 的 设计 检视 窗口 。 其 中 被 先 
中 的 部 分 代表 数据 表 “ 表 1” 中 “字段 名 称 ” 为 C-Name 的 字段 ， 而 窗口 下 面 的 “常规 ” 
选项 卡 包含 了 该 字段 的 各 种 特性 设置 ， 例 如 ， 在 “字段 大 小 ”文本 框 中 设置 字段 所 能 存储 
的 数据 长 度 ， 在 “ 必 填 字段 ”下 拉 列 表 中 设置 字段 是 否 为 必 有 值 ， 在 “允许 空 字符 串 ” 下 
拉 列 表 中 设置 字段 内 容 是 否 可 为 空 字符 串 等 。 
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图 9-11 数据 表 “ 表 1” 的 设计 检视 窗口 


另外 ， 在 数据 表 的 设计 检视 窗口 中 ， 单 击 “ 数 据 类 型 ” 列 单元 格 中 的 下 拉 列 表 按钮 ， 
在 弹出 的 下 拉 列 表 中 还 可 以 为 字段 设置 数据 类 型 限制 。 以 图 9-11 所 显示 的 C-Name 字段 为 
例 ， 它 的 数据 类 型 为 “文本 ”， 如 果 要 修改 这 项 设置 ， 可 以 单 击 该 字段 的 “数据 类 型 ”下 
拉 列 表 按 钮 ， 然 后 在 弹出 的 下 拉 列 表 中 选择 所 需 的 选项 即 可 。 
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3. 数据 内 容 


数据 库 中 的 数据 内 容 存储 于 数据 表 中 ， 在 数据 库 工 作 区 中 双击 数据 表 名 称 即 可 打开 数 
据 表 。 从 外 观 上 看 ， 数 据 表 类 似 Excel 表格 ， 每 一 行 代表 一 个 记录 ， 每 一 列 代表 一 个 字段 ， 
并 且 每 个 字段 都 有 其 特定 的 字段 名 称 和 字段 数据 类 型 。 图 9-12 所 示 就 是 在 对 【练习 9-11 
创建 的 数据 表 “ 表 1” 完 成 内 容 填 充 后 的 客户 数据 表 。 
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图 9-12 数据 表 “ 表 1” 中 的 数据 内 容 


注意 : 

单 击 数据 表 中 的 某 项 记录 , 就 可 以 针对 该 记录 进行 修改 , 或 直接 按 Delete 键 将 其 删除 。 

4. 字段 索引 

索引 是 一 种 字段 标识 ， 通 常 完成 一 个 数据 表 字 段 设 计 后 ， 还 需要 针对 其 中 的 字段 设置 
索引 。 索 引 的 主要 功能 有 两 种 ， 增 加 数据 的 搜索 速度 和 设置 数据 表 关联 ， 数 据 表 的 索引 的 
作用 就 如 同 书 签 一 样 ， 数 据 库 可 以 根据 索引 快速 地 查找 到 存储 于 数据 表 中 的 特定 数据 。 而 
数据 表 之 间 的 索引 字段 关联 则 可 以 串联 不 同 数据 表 中 的 数据 内 容 。 

索引 本 身 根 据 其 功用 可 以 分 为 两 种 : 主键 ( 主 索引 ) 和 一 般 性 索引 。 一 个 数据 表 只 能 有 
一 个 字段 被 设置 为 主键 ， 而 被 设置 为 主键 的 字段 在 整个 数据 表 中 的 数据 内 容 是 唯一 值 ， 不 
允许 被 重复 。 例 如 【练习 9-1】 的 步骤 (5) 将 C-Id 字段 设置 为 主键 ， 该 字段 作为 数据 表 的 客 
户 编号 字段 ， 当 用 户 在 数据 表 中 输入 数据 内 容 时 将 不 会 有 重复 的 客户 编号 存在 ， 这 样 数据 
库 系 统 就 可 以 根据 这 个 字段 的 编号 取得 特定 客户 的 数据 内 容 。 

一 个 数据 表 可 以 有 多 个 字段 被 设置 为 一 般 性 索引 。 这 种 索引 的 功用 除了 与 其 他 数据 表 的 
主键 字段 关联 以 外 ， 还 可 以 加 速 数 据 库 的 搜索 速度 。 


【练习 9-2】 以 【练习 9-1】 所 创建 的 数据 库 dol 中 的 数据 表 “ 表 1” 为 基础 ， 设 置 该 
数据 表 中 字段 C-Id 与 字段 C-Tel 之 间 的 一 般 性 索引 。 

(1) 在 Access 2003 中 打开 数据 库 db1， 然 后 选中 数据 表 “ 表 1”， 并 单 击 “ 设 计 ” 按 
钮 ， 打 开设 计 检 视窗 口 。 

(2) 在 数据 表 “ 表 1” 的 设计 检视 窗口 中 选中 字段 C-Id， 然 后 在 工具 栏 中 单 击 “ 索 引 ” 
按钮 (如 图 9-13 所 示 )， 打 开 “ 索 引 : 表 1” 对 话 框 。 
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(3) 在 “索引 名 称 ” 文 本 框 中 输入 C-Id， 然 后 单 击 该 文本 框 后 的 “字段 名 称 ” 下 拉 列 
表 按钮 ， 在 弹出 的 下 拉 列 表 中 选择 C-Tel 选项 (如 图 9-14 所 示 )。 


EEC 
"ws Aa 


竺 索引 字段 的 名 称 。 


ANAD. m-cmwe. n 


图 9-13 设置 索引 图 9-14 “RI: 表 1” 对 话 杠 


(4) 完成 设置 后 ， 关 闭 “ 索 引 : 表 1” 对 话 框 ， 在 数据 表 “ 表 1” 的 C-Tel 字段 里 成 功 
新 增 一 个 名 为 C-Id 的 字段 索引 。 


9.1.3 ”结构 化 查询 语言 简介 


SQL 是 结构 化 查询 语言 (Structured Query Language) 的 缩写 ， 包 括 查 询 、 定 义 、 操 纵 和 
控制 4 个 部 分 ， 是 一 种 功能 齐全 的 数据 库 语言 。 

数据 查询 是 指 按 要 求 查找 出 满足 条 件 的 记录 的 操作 。 数 据 定义 是 指 对 关系 模式 一 级 的 
定义 。 数 据 操纵 是 指 对 关系 中 的 具体 数据 进行 增 、 删 、 改 和 更 新 等 操作 。 数 据 控制 是 指 对 
数据 访问 权限 的 授予 或 撤销 。 

SQL 具有 语言 简洁 、 方 便 实 用 、 功 能 齐全 等 优点 。 目 前 ， 多 数 数据 库 管 理 系 统 都 支持 
SQL 或 提供 SQL 接口 。 

1. SQL 的 构成 


SQL 是 由 命令 、 子 句 和 运算 符 等 元 素 所 构成 的 ， 这 些 元 素 结合 起 来 组 成 用 于 创建 、 更 
新 和 操作 数据 库 的 语句 。SQL 语言 常 分 为 3 类 ; 数据 操纵 语言 DML、 数 据 定义 语言 DDL 
和 数据 库 控制 语言 DCL。 

数据 定义 语言 DDL 完成 定义 数据 库 的 结构 ， 包 括 数据 库 本 身 、 数 据 表 、 目 录 、 视 图 
等 数据 库 元 素 。 常 用 DDL 语句 及 其 相关 说 明 如 表 9-2 所 示 。 


表 9-2 常用 DDL 语句 及 其 相关 说 明 


常用 DDL 语句 说 — 0H 
CREATE TABLE 创建 表 
CREATE INDEX 创建 索引 
CREATE VIEW 创建 视图 
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( 续 表 ) 
常用 DDL 语句 说 明 
ALTER TABLE | 增加 表 列 ， 重 定义 表 列 ， 更 改 存储 分 配 
DROP TABLE 删除 表 
DROP INDEX 删除 索引 


数据 操纵 语言 DML 完成 在 数据 库 中 确定 、 修 改 、 添 加 、 删 除 某 一 数据 值 的 任务 。 常 
用 DML 语句 及 其 相关 说 明 如 表 9-3 所 示 。 


3k 9-3 Hi DML 语句 及 其 相关 说 明 


常用 DML 语句 说 了 明 
SELCECT 在 数据 库 中 查找 满足 指定 条 件 的 记录 
INSERT 增加 数据 行 到 表 
DELETE 从 表 中 删除 数据 行 
UPDATE 更 改 表 中 的 数据 


数据 库 控制 语言 DCL 用 来 授予 或 回收 访问 数据 库 的 某 种 特权 , 并 控制 数据 库 操纵 事务 
发 生 的 时 间 及 效果 ， 对 数据 库 实 行 监视 等 。 常 用 DCL 语句 及 其 相关 说 明 如 表 9-4 所 示 。 


表 9-4 常用 DCL 语句 及 其 相关 说 明 


DCL 语句 说 0H 
GRANT 将 权限 或 角色 授予 用 户 或 其 他 角色 
REVODE 回收 用 户 权 限 
ROLL 问 深 。 这 是 一 个 把 信息 恢复 到 使 用 UPDATE、INSERT、DELETE 前 最 后 提交 的 状态 
COMMIT 提交 。 在 完成 数据 库 的 插入 、 删 除 和 修改 操作 时 ， 只 有 当 事 务 提交 到 数据 库 才 算 完成 


-个 SQL 语句 是 一 个 由 从 句 组 成 的 命令 , 从 句 指定 了 要 执行 的 操作 , 数据 源 以 及 任何 
完成 操作 所 需 的 结构 。 每 个 从 句 必须 起 始 于 一 个 关键 字 。 最 常用 的 从 句 及 其 相关 说 明 如 表 
9-5 所 示 。 


表 9-5 常用 DCL 语句 及 其 相关 说 明 


指定 要 对 其 进行 操作 的 数据 源 
对 操作 设 定 一 个 或 多 个 条 件 
对 查询 结果 进行 排序 
GROUP BY | 对 查询 结果 进行 分 组 
HAVING 指定 分 组 的 条 件 


ORDERBY 
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SQL 运算 符 可 分 为 下 面 几 种 类 别 。 

e 比较 运算 符 ( 大 小 比较 ) 3 天 = «€ — bog 

e 范围 运算 符 (表达 式 值 是 否 在 指定 的 范围 ): BETWEEN…AND…、NOT BETWEEN… 
AND". 

e 列表 运算 符 (判断 表达 式 是 否 为 列表 中 的 指定 项 ): IN (项 1. 项 2……)、NOT IN (项 


o 模式 匹配 符 (判断 值 是 否 与 指定 的 字符 通 配 格式 相符 ): LIKE. NOT LIKE. 

o 空 值 判断 符 (判断 表达 式 是 否 为 空 ): IS NULL. NOT IS NULL. 

e 逻辑 运算 符 (用 于 多 条 件 的 逻辑 连接 ): NOT. AND. OR. 

SQL 还 有 一 些 用 来 计算 的 函数 , 即 合 计 函 数 . 例 如 ,用 AVG 函数 计算 平均 值 ,用 COUNT 
函数 返回 记录 数 ， 用 SUM 函数 计算 总 和 ， 用 MAX 函数 计算 最 大 值 等 。 

2. SELECT 语句 


SELECT 语句 的 功能 是 从 现 有 的 数据 库 中 检索 数据 ， 将 满足 一 定 约束 条 件 的 一 个 或 多 
个 表 中 的 字段 从 数据 库 中 挑选 出 来 ， 并 按 一 定 的 分 组 和 排序 方法 显示 出 来 。 

简单 的 SQL 查询 只 包括 选择 列表 、FROM FEJA WHERE 子 句 。 它 们 分 别 说 明 所 查 
itp), 查询 的 表 或 视图 ， 以 及 搜索 条 件 等 。 例如 ， 下 面 的 语句 查询 Customers 表 中 名 为 “ 创 
新 书店 ”的 CustID 字段 和 CustName 字段 。 


SELECT CustID, CustName 
FROM Customers 
WHERE name=' 创 新 书店 ' 


选择 列表 (select_lisb 指 出 所 查询 列 ， 可 以 是 一 组 列 名 列表 、 星 号 、 表 达 式 、 变 量 (包括 
局 部 变量 和 全 局 变量 ) 等 构成 。 星 号 代表 所 有 的 记录 和 字段 , 例如 下 面 语 句 将 显示 Customers 
表 中 所 有 列 的 数据 : 


SELECT * 
FROM Customers 


注意 : 

SELECT 语句 中 使 用 ALL 或 DISTINCT 选 项 来 显示 表 中 符合 条 件 的 所 有 行 或 删除 其 中 
重复 的 数据 行 ， 默 认为 ALL。 使 用 DISTINCT 选项 时 ， 对 于 所 有 重复 的 数据 行 在 SELECT 
返回 的 结果 集合 中 只 保留 一 行 。 

在 选择 列表 中 ， 可 重新 指定 列 标题 。 如 果 指 定 的 列 标题 不 是 标准 的 标识 符 格 式 时 ， 应 
使 用 引号 定 界 符 ， 例如， 下 面 语句 使 用 汉字 显示 列 标题 : 


SELECT 编号 = CustID. 姓 名 = CustName 
FROM Customers 
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使 用 TOP n [PERCENT] 选 项 限制 返回 的 数据 行 数 ，TOP n 说 明 返 回 n 行 , 而 TOP n 
PERCENT 中 , n 表示 百分数 ， 指 定 返 回 的 行 数 等 于 总 行 数 的 百 分 之 几 。 例 如 ， 下 面 语 句 将 
返回 Customers 表 中 最 前 列 五 分 之 一 的 记录 : 


SELECT TOP 20 PERCENT * 
FROM Customers 


3. FROM 子 句 


FROM 子 句 指定 SELECT 语句 查询 及 与 查询 相关 的 表 或 视图 。 在 FROM 子 句 中 最 多 
可 指定 256 个 表 或 视图 ， 它 们 之 间 用 逗号 分 隔 。 
在 FROM 子 句 同时 指定 多 个 表 或 视图 时 ,如果 选择 列表 中 存在 同名 列 ,这 时 应 使 用 对 
象 名 限定 这 些 列 所 属 的 表 或 视图 。 例 如 ， 在 Customers 和 Orders 表 中 同时 存在 CustName 
列 ， 在 查询 两 个 表 中 的 CustName 时 应 使 用 下 面 语句 格式 加 以 限定 : 
SELECT CustID,Address, Orders .price 


FROM Customers, Orders 
WHERE Customers.CustName =Orders. CustName 


在 FROM 子 句 中 可 用 以 下 两 种 格式 为 表 或 视图 指定 别名 : 
表 名 as 别名 
表 名 别名 

上 面 语句 可 用 表 的 别名 格式 表示 为 : 


SELECT CustID,Address, Orders .price 
FROM Customers as 客户 资料 . Orders 订单 资料 
WHERE 客户 资料 .CustName = 订单 资料 . CustName 


SELECT 不 仅 能 从 表 或 视图 中 检索 数据 ， 还 能 够 从 其 他 查询 语句 所 返回 的 结果 集合 中 
查询 数据 。 

4. WHERE 子 句 

WHERE 子 句 用 于 设置 查询 条 件 ， 过 滤 掉 表 中 不 需要 的 数据 行 。 可 以 包含 多 个 表达 式 ， 
表达 式 之 间 要 用 AND 和 OR 等 运算 符 连 接 起 来 。 

例如 ， 下 面 语句 将 在 订单 资料 表 中 查询 交易 金额 为 100~300 的 订单 明细 : 


SELECT * 
FROM Orders 
WHERE price BETWEEN 100 AND 300 


5. ORDER BY 子 句 
使 用 ORDER BY 子 句 对 查询 返回 的 结果 进行 排序 。ORDER BY 子 句 的 语法 格式 为 : 


第 9 章 利用 ADO 组 件 访问 数据 库 *165* 


ORDER BY (column name [ASC|DESC]| [....n] 


其 中 ASC 表示 升序 , 为 默认 值 , DESC 为 降序 。 ORDER BY 不 能 按 ntext\ text 和 image 
数据 类 型 进行 排序 。 

ORDER BY 子 句 中 还 可 包含 多 个 字段 ,这 样 记录 先 按 第 一 个 字段 排序 然后 对 值 相 等 
的 记录 再 按 第 二 个 字段 排序 。 另 外 ， 还 可 以 在 ORDER BY 子 句 中 加 入 表达 式 ， 根 据 计 算 
结果 进行 排序 。 例 如 ， 下 面 语句 将 在 订单 资料 表 中 先 按 交易 排序 : 


SELECT * 
FROM Orders 
ORDER BY price desc,CustID ASC 


6. SELECT…INTO 语句 
SELECT…INTO 语句 用 来 从 查询 结果 中 建立 新 表 。 例 如 : 


SELECT CustID, CustName INTO # Customers2 
FROM Customers 


7. DELETE 语句 


DELETE 语句 的 功能 是 删除 FROM 子 句 列 出 的 、 满 足 WHERE 子 句 条 件 的 一 个 或 多 个 
表 中 的 记录 。 例 如 ， 可 以 用 下 面 的 语句 从 Customers 表 中 删除 姓 “ 刘 ”的 记录 : 


DELETE FROM Customers 
WHERE CustName LIKE ' 刘 %' 


9. INSERT INTO 语句 


INSERT INTO 语句 用 于 添加 一 个 或 多 个 记录 到 表 中 。 例如， 以 下 语句 向 Customers 4 
中 添加 一 条 新 的 记录 : 


INSERT INTO Customers 
(CustID, CustName, Address, Phone) 
VALUES (KT015'，' 陈 永超 '，' 东 方 红 大 道 11 S, 64512458") 


9. UPDATE 语句 


UPDATE 语句 用 于 按 某 个 条 件 来 更 新 特定 表 中 的 字段 值 。 例 如 ， 以 下 语句 将 
OrderDetails 表 中 所 有 单价 改 为 120: 


UPDATE OrderDetails SET price=120 


9.1.4 ODBC 简介 


ODBC(Open DataBase Connectivity， 开 放 数 据 库 互 连 ) 是 Microsoft 开发 的 一 套 读 取 数 
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据 库 的 解决 方案 , 它 将 所 有 对 数据 库 的 底层 操作 全 部 隐藏 在 ODBC 的 驱动 程序 内 核 里 。 对 
于 用 户 来 说 ， 只 要 构建 了 一 个 指向 数据 库 的 连接 ， 就 可 以 采用 统一 的 应 用 程序 编程 接口 
(Application Program Interface，APD 实 现 对 数据 库 的 读 写 ， 或 用 相同 的 代码 访问 不 同 格式 
的 数据 库 。 

1. ODBC 驱动 


ODBC 简化 了 对 数据 库 的 访问 ， 也 为 程序 的 跨 平台 开发 和 移植 提供 了 极 大 的 方便 。 
ODBC 可 对 大 多 数 类 型 数据 库 提供 支持 ， 包 括 dBase、Informix、Access、SQL Server 和 
Oracle 等 ， 还 可 对 一 些 其 他 类 的 数据 库 文件 提供 支持 ， 如 文本 、Excel 电子 表格 等 。 对 于 一 
些 特殊 的 数据 库 ， 只 要 安装 数据 库 厂 商 提供 的 ODBC 程序 ， 就 能 够 在 程序 中 直接 对 数据 库 
进行 操作 。 

ODBC 由 应 用 程序 、 驱 动 程序 管理 器 、 驱 动 程序 和 数据 源 等 部 分 组 成 。 应 用 程序 通过 
ODBC 接口 访问 不 同 数据 源 中 的 数据 ， 每 个 不 同 的 数据 源 类 型 由 一 个 驱动 程序 支持 。 驱 动 
程序 管理 器 为 应 用 程序 装 入 合适 的 驱动 程序 ， 如 图 9-15 所 示 。 


应 用 程序 
ODBC 接口 
驱动 程序 管理 器 


图 9-15 ODBC 的 结构 


ASP 必须 建立 与 数据 库 之 间 的 联系 才能 使 用 数据 库 中 的 数据 。 要 在 ASP 中 使 用 ADO 
对 象 来 操作 数据 库 ， 首 先 要 创建 一 个 指向 该 数据 库 的 ODBC 连接 。 在 Windows 系统 中 ， 
ODBC 的 连接 主要 通过 ODBC 数据 源 管理 器 来 完成 。 


2. DSN 数据 源 


数据 库 驱 动 程序 使 用 数据 源 DSN(Data Source Name) 定 位 和 标识 特定 的 ODBC 兼容 数 
据 库 ， 将 信息 从 Web 应 用 程序 传递 给 数据 库 。DSN 包含 数据 库 配 置 、 用 户 安全 性 和 定位 
信息 ， 且 可 以 获取 Windows 注册 表 项 或 以 文本 文件 格式 存储 的 表格 。 

构建 ODBC 连接 就 是 创建 同 数据 源 的 连接 ， 也 就 是 创建 DSN。DSN 就 是 对 数据 库 的 
命名 连接 。 一 旦 创建 了 指向 数据 库 的 ODBC 连接 ， 同 该 数据 库 连 接 的 有 关 信息 就 被 保存 在 
DSN 中 。 在 程序 中 操作 数据 库 也 必须 通过 DSN 来 进行 。 

DSN 分 为 用 户 、 系 统 和 文件 3 种 类 型 。 用 户 DSN 和 系统 DSN 将 信息 存储 在 Windows 
注册 表 中 ， 它 位 于 注册 表 中 的 如 下 位 置 : 


HKEY LOCAL MACHINE'SOFTWARE'ODBC'ODBC.INI 
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户 DSN 只 被 用 户 直接 使 用 ， 只 能 用 于 当前 计算 机 中 ，ASP 不 能 使 用 它 。 系 统 DSN 
允许 所 有 用 户 登录 到 特定 服务 器 上 去 访问 数据 库 ， 任 何 具 有 权限 的 用 户 都 可 以 访问 系统 
DSN。 在 Web 应 用 程序 中 访问 数据 库 时 ， 通 常 都 是 建立 系统 DSN。 

文件 DSN 将 信息 存储 在 后 级 为 .dsn 的 文本 文件 中 , 如 果 将 此 文件 放 在 网 络 的 共享 目录 
中 ， 那 么 可 以 被 网 络 中 的 任何 一 台 工 作 站 访问 到 。 

文件 DSN 的 优点 在 于 方便 移动 ， 因 为 DSN 信息 保存 在 独立 的 文件 中 ， 如 果 希 望 将 整 
个 Web 应 用 程序 和 数据 库 移 动 到 其 他 计算 机 中 , 只 需 连 同 生成 的 DSN 文件 一 起 移动 即 可 。 
而 系统 DSN 信息 保存 在 注册 表 中 ， 所 以 移动 起 来 就 不 那么 方便 。 

系统 DSN 的 优点 在 于 方便 修改 ， 只 需 简 单 地 修改 Windows 的 注册 表 即 可 。 而 对 于 使 
用 文件 DSN 的 用 户 ， 则 必须 每 次 修改 Global.asa 文件 。 另外， 如果 在 计算 机 上 许多 不 同 的 
应 用 程序 须 使 用 同一 个 DSN， 那 么 使 用 系统 DSN 更 为 方便 。 


【练习 9-3】 以 【练习 9-1] 创建 的 数据 库 为 基础 ， 创 建 一 个 名 为 netdsn 的 系统 DSN。 

(1) 打开 “控制 面板 ”中 的 “管理 工具 ”窗口 ， 如 图 9-16 所 示 。 

(2) 双击 “数据 源 ” 图 标 弹出 “ODBC 数据 源 管理 器 ”对 话 框 ， 选 择 “ 系 统 DSN” 选 
项 卡 ， 如 图 9-17 所 示 。 


IMU RAU BEN PO TED PMY 
Qu. O 8 pmp 回 - 


图 9-16 ”启动 数据 源 (ODBC) 管 理 器 图 9-17 “系统 DSN” 选 项 卡 


G) 单 击 “ 添 加 ”按钮 ， 系 统 弹出 “创建 新 数据 源 ” 对 话 框 ， 选 择 Microsoft Access 
Driver(*.mdb) 选 项 ， 如 图 9-18 所 示 。 

(4) 单 击 “ 完 成 ”按钮 ， 在 系统 打开 的 “ODBC Microsoft Access 安装 ”对 话 框 中 输入 
系统 DSN 的 名 称 netdsn， 如 图 9-19 所 示 。 


[Er emo | ssw | ssw = 
KSE 


LETS 


图 9-18 “创建 新 数据 源 ” 对 话 框 图 9-19 “ODBC Microsoft Access. 安装 ”对 话 框 
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(5) 单 击 “ 选 择 ” 按 钮 ， 在 系统 打开 的 “选择 数据 库 ” 对 话 框 中 选中 【练习 9-1】 创 建 
的 数据 库 dbl.msd 后 (如 图 9-20 所 示 )， 单 击 “确定 ”按钮 返回 “ODBC Microsoft Access 安 
装 ” 对 话 框 。 

(6) 单 击 “确定 ”按钮 ， 此 时 在 “ODBC 数据 源 管理 器 ”对 话 框 中 显示 刚 安装 的 系统 
DSN， 如 图 9-21 所 示 。 单 击 “ 确 定 ” 按 钮 ， 完 成 系统 DSN 的 安装 工作 。 


EET 
AP nw 系统 ISu | 文件 osa engem | mus esp [ow | 
RGEEBO: 


g Ves TUR RO ERE Mn Ý 
确定 Rin SRI (AO Lig 
图 9-20 选中 数据 库 文件 图 9-21 完成 系统 DSN 的 安装 


9.1.5 OLE DB 简介 


OLE DB 提供 统一 数据 访问 接口 的 技术 标准 。 可 以 访问 的 数据 包括 标准 关系 型 数据 库 
中 的 数据 ， 还 包括 邮件 数据 、Web 上 的 文本 或 图 形 、 目 录 服 务 (Directory Services)， 以 及 主 
机 数据 库 ( 如 IMS 和 DB2)、 服 务 器 数据 库 ( 如 Oracle 和 SQL ServeD 和 桌面 数据 库 (如 
Microsoft Access)。 

OLE DB 标准 的 核心 内 容 就 是 要 求 以 上 这 些 各 种 各 样 的 数据 存储 (Data Store) 都 提供 一 种 
相同 的 访问 接口 。 这 种 接口 封装 了 各 种 数据 系统 的 访问 操作 ， 使 数据 的 使 用 者 (应 用 程序 ) 可 以 
使 用 同样 的 方法 访问 各 种 数据 ， 而 不 用 考虑 数据 的 具体 存储 地 点 、 格 式 或 类 型 。OLE DB 还 
提供 了 一 组 标准 的 服务 组 件 ， 用 于 提供 查询 、 缓 存 、 数 据 更 新 、 事 务 处 理 等 操作 。 因 此 ， 数 据 
提供 方 只 需 实现 一 些 简单 的 数据 操作 ， 使 用 方 就 可 以 获得 全 部 的 数据 控制 能 力 。 

OLE DB 将 传统 的 数据 库 系 统 划 分 为 多 个 逻辑 组 件 ， 这 些 组 件 之 间 相 对 独立 又 相互 通 
信 。 这 种 组 件 模型 中 的 各 个 部 分 被 冠 以 不 同 的 名 称 。 

e 数据 提供 者 (Data Provider): 提供 数据 存储 的 软件 组 件 ， 小 到 普通 的 文本 文件 ， 大 

到 主机 上 的 复杂 数据 库 ， 或 电子 邮件 存储 。 

e 数据 服务 提供 者 (Data Service Provider): 位 于 数据 提供 者 之 上 ， 从 旧 的 数据 库 管 理 
系统 中 分 离 出 来 ， 且 独立 运行 的 功能 组 件 ， 例 如 查询 处 理 器 和 游标 引擎 (Cursor 
Engine), 这 些 组 件 使 数据 提供 者 提供 的 数据 以 表 状 数据 (Tabular Data) 的 形式 向 外 表 
示 ( 不 管 真实 的 物理 数据 是 如 何 组 织 和 存储 的 )， 并 实现 数据 的 查询 和 修改 功能 。 
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e 业务 组 件 (Business Component): 利用 数据 服务 提供 者 , 专门 完成 某 种 特定 业务 信息 
处 理 ， 是 可 以 重用 的 功能 组 件 。 分 布 式 数据 库 应 用 系统 中 的 中 间 层 (Middle-TieD 就 
是 这 种 组 件 的 典型 例子 。 

e 数据 使 用 者 (Data Consumer): 任何 需要 访问 数据 的 系统 程序 或 应 用 程序 ， 除 了 典型 
的 数据 库 应 用 程序 之 外 ， 还 包括 需要 访问 各 种 数据 源 的 开发 工具 或 语言 。 


注意 : 

OLE DB 和 ODBC 标准 都 是 为 了 提供 统一 的 数据 访问 接口 ，ODBC 标准 的 对 象 是 基于 
SQL 的 数据 源 (SQL-Based Data Source)， 而 OLE DB 的 对 象 则 是 范围 更 为 广泛 的 任何 数据 
存储 。 所 以， 符合 ODBC 标准 的 数据 源 是 符合 OLE DB 标准 的 数据 存储 的 子 集 ， 同 时 还 提 
供 相 应 的 OLE DB 服务 程序 (Service Provider)。 


OLE DB 标准 的 具体 实现 是 一 组 API 函数 , 就 像 ODBC 标准 中 的 API 函数 一 样 , 不 同 
的 是 ，OLE DB 中 的 API 函数 是 符合 COM 标准 、 基 于 对 象 的 。 使 用 OLE DB 中 的 API K 
数 ， 可 以 编写 能 够 访问 符合 OLE DB 标准 的 任何 数据 源 的 应 用 程序 ， 也 可 以 编写 针对 某 种 
特定 数据 存储 的 查询 处 理 程序 (Query Processor) 和 游标 引 敬 (Cursor Engine)， 因 此 OLE DB 
标准 实际 上 是 规定 了 数据 使 用 者 和 提供 者 之 间 的 一 种 应 用 层 的 协议 (Application-Level 


Protocol). 


9.1.6 ADO 对 象 模型 


ADO 是 应 用 层 的 编程 接口 , 通过 OLE DB 提供 的 接口 访问 数据 , 这 样 各 种 编程 语言 
能 够 编写 符合 OLE DB 标准 的 应 用 程序 。 

ADO 封装 了 OLE DB 中 最 常用 的 一 些 特性 ，ADO 可 以 在 Visual Basic 或 Visual C++ 
中 使 用 ， 也 可 在 服务 器 端 脚本 中 使 用 。 使 用 ADO 时 ，ASP 应 用 程序 和 底层 数据 库 间 的 关 
系 如 图 9-22 所 示 。 

从 图 9-22 中 可 以 看 出 , 应 用 程序 既 可 以 通过 ADO 访问 数据 , 也 可 以 直接 通过 OLE DB 
访问 数据 ， 而 ADO 则 通过 OLE DB 访问 底层 数据 。 

OLE DB 分 成 两 部 分 ， 一 部 分 由 数据 提供 者 实现 ， 包 括 一 些 基本 功能 ， 如 获取 数据 、 
修改 数据 、 添 加 数据 项 等 ; 另 一 部 分 由 系统 提供 ， 包 括 一 些 高 级 服务 ， 如 游标 功能 、 分 布 
式 查询 等 。 这 样 的 层次 结构 既 为 数据 使 用 者 即 应 用 程序 提供 了 多 种 选择 方案 ， 又 为 数据 提 
供 方 简化 了 服务 功能 的 实现 手段 ， 只 需 按 OLE DB 规范 编写 一 个 COM 组 件 程序 即 可 ， 使 
得 第 三 方 发 布 数据 更 为 简便 。 而 在 应 用 程序 方 可 以 得 到 全 面 的 功能 服务 ， 这 充分 体现 了 
OLE DB 两 层 结构 的 优势 。 
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ASP 应 用 程序 | 
Active 数据 对 象 (ADO) 


一- 数据 提供 者 


图 9-22 ASP 应 用 程序 和 底层 数据 库 间 的 关系 


9.1.7 ADO 对 象 简介 


ADO 实际 上 是 OLE DB 的 应 用 层 接口 ,这 种 结构 也 为 一 致 的 数据 访问 接口 提供 了 很 好 
的 扩展 性 , 而 不 再 局 限于 特定 的 数据 源 , 因此 , ADO 可 以 处 理 各 种 OLE DB 支持 的 数据 源 。 
ADO 本 身 由 多 个 对 象 组 成 , 这 些 对 象 分 别 负责 提供 各 种 数据 库 操作 行为 , 大 致 上 可 以 分 为 
连接 、 修 改 和 查询 3 个 部 分 ， 如 图 9-23 所 示 。 

在 ADO 模型 中 ， 主 体 对 象 只 有 Connection; Command 和 Recordset 3 个 ， 一 个 典型 的 
ADO 应 用 使 用 Connection 对 象 建立 与 数据 源 的 连接 , 然后 用 一 个 Command 对 象 给 出 对 数 
据 库 操作 的 命令 ， 例 如 查询 或 更 新 数据 等 ， 而 Recordset 用 于 对 结果 集 数 据 进 行 维护 或 浏 


览 等 操作 。 


图 9-23 ADO 对 象 模型 
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其 他 4 个 集合 对 象 Errors、Properties、Parameters 和 Fields 分 别 对 应 Error, Property, Parameter 
和 Field 对 象 ， 整 个 ADO 对 象 模型 由 如 表 9-6 所 示 的 对 象 组 成 。 


表 9-6 ADO 中 的 对 象 
说 明 


Connection 对 象 


连接 。 创 建 与 数据 库 互 动 所 需 的 连接 ， 任 何 数据 库 的 操作 行为 都 必须 在 连接 的 
基础 下 进行 。 因此 在 使 用 ADO 之 前 , 首先 要 创建 一 个 Connection 对 象 。 必须 注 
意 的 是 , 这 个 动作 不 是 绝对 的 , ADO 本 身 会 在 没有 Connection 对 象 的 情形 之 下 ， 
自行 创建 所 需 的 连接 对 象 


Command 对 象 


Recoreset 对 象 


Fields 集合 和 Field 
对 象 


Parameters 集合 
Parameter 对 象 
Properties 集合 


Property 对 象 


Errors 集合 和 Error| 


对 象 


修改 。 针 对 连接 的 数据 库 进行 数据 变动 ， 将 用 户 提 供 的 指令 传送 到 数据 库 。 进 
行 新 增 、 删 除 或 修改 资料 等 变动 处 理 ， 指 令 便 是 用 于 变动 数据 的 SQL 语句 
查询 。 从 数据 库 中 提取 符合 特定 条 件 的 数据 内 容 。 应 用 程序 从 Recoreset 对 象 取 
得 所 要 处 理 的 特定 数据 内 容 ， 这 些 数据 可 能 是 某 个 特定 数据 表 的 全 部 或 特定 内 
容 ， 或 跨越 多 个 数据 所 取得 的 关系 型 数据 ， 这 些 数 据 以 二 维 数组 的 形式 提供 
Fields 集合 处 理 记录 中 的 各 个 列 。 记 录 集 中 返回 的 每 一 列 在 Fields 集合 中 都 有 一 
个 相关 的 Field 对 象 。Field 对 象 使 得 用 户 可 以 访问 列 名 、 列 数据 类 型 以 及 当前 
记录 中 列 的 实际 值 等 信息 

Command 对 象 包含 一 个 Parameters 集合 .Parameters 集合 包含 参数 化 的 Command 
对 象 的 所 有 参数 ， 每 个 参数 信息 由 Parameter 对 象 表示 
Connection、Command、Recordset 和 Field 对 象 都 含有 Properties 集合 。Properties 
集合 用 于 保存 与 这 些 对 象 有 关 的 各 个 Property X R -Property 对 象 表示 各 个 选项 
设置 或 其 他 没有 被 对 象 的 固有 属性 处 理 的 ADO 对 象 特征 

Connection 对 象 包含 一 个 Errors A -Errors 集合 包含 的 Errors 对 象 给 出 了 关于 
数据 提供 者 出 错时 的 扩展 信息 


9.2 Connection 对 象 


Connection 对 象 又 称 连接 对 象 ， 用 来 和 数据 库 建立 连接 。Connection 对 象 建立 连接 后 ， 
才 可 以 利用 Command 对 象 或 Recordset 对 象 对 数据 库 进 行 各 种 操作 。 


9.2.1 与 数据 库 建 立 连接 


建立 Connection 对 象 是 采用 Server 对 象 的 CreateObject 方法 进行 的 ,其 语法 结构 如 下 : 


Set Connection 对 象 = Server.CreateObject(" ADODB.Connection") 
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其 中 ，ADODB.Connection 为 所 要 创建 的 ADO 连接 对 象 。 另 外 ， 还 可 用 <OBJECT> 标 

记 来 创建 Connection 对 象 ， 例 如 : 
«OBJECT RUNAT=Server ID=cn PROGID="ADODB.Connection"></OBJECT> 

注意 : 

在 没有 明确 建立 Connection 对 象 的 情形 之 下 ，ADO 本 身 也 会 自行 创建 所 需 的 连接 对 
象 ， 但 这 样 将 无 法 利用 Connection 对 象 的 许多 功能 。 

1. 用 DSN 连接 数据 库 


一 旦 连接 对 象 创建 后 , 便 可 以 通过 这 个 对 象 来 连接 数据 库 , 这 时 只 需 直 接 引 用 Connection 
对 象 的 Open 方法 即 可 。 其 语法 结构 如 下 : 


Connection 对 象 .Open 连接 字符 串 或 变量 
在 “连接 字符 串 或 变量 ”中 各 参数 的 意义 如 表 9-7 所 示 。 


表 9-7 Connection 对 象 的 Open 方法 的 参数 


参数 mo" 
Dsn ODBC 数据 源 名 称 
User 数据 库 登 录 账 号 
Password 数据 库 登 录 密 码 
Driver 数据 库 的 类 型 (驱动 程序 ) 
Dbq 数据 库 的 物理 路 径 
Provider 数据 提供 者 
Data Source 数据 源 


如 果 用 到 两 个 以 上 的 参数 ， 中 间 用 分 号 隔 开 ， 顺 序 没 有 关系 。 有 些 参数 不 能 同时 使 
用 ， 例 如 用 了 Driver， 一 般 就 不 用 Provider: 用 了 Dsn， 也 就 不 用 Driver 和 Provider， 如 
下 例 所 示 : 


«*6cn.Open "booknetdsn","sa",""%> 
也 可 以 先 设置 ConnectionString 属性 ， 再 调用 Open 方法 。 例 如 : 


<% 
cn.ConnectionString- "DSN=booknetdsn: " 


cn.Open 
%> 


或 直接 将 连接 字符 串 作为 参数 来 调用 : 


«*ecn.Open "DSN=booknetdsn:UID=sa:PWD="%> 
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注意 : 

创建 有 ODBC 数据 源 的 连接 方法 书写 简便 ， 也 不 容易 出 错 。 更 重要 的 是 不 管 数 据 库 放 
在 哪里 ， 只 要 对 数据 源 重 新 设置 即 可 ， 不 需 更 改 程序 代码 。 如 果 要 将 程序 移植 到 另外 的 服 
务 器 上 ， 则 需要 重新 设置 数据 源 。 

2. 创建 基于 OLE DB 连接 字符 串 的 连接 


如 果 在 “ODBC 数据 源 管理 器 ”中 没有 建立 DSN， 那 么 ADO 便 使 用 提供 的 OLE DB 
连接 字符 串 来 识别 OLE DB 提供 者 ， 并 将 提供 者 指向 数据 源 ， 如 下 例 所 示 : 
<% 
cn.Open "Provider=SQLOLEDB.1:User ID=sa:Password=:"& _ 
"Initial Catalog-booknet:Data Source-zsh" 
%> 


其 中 ，Provider 指定 数据 提供 者 ，Initial Catalog 指向 在 SQL Server 上 的 待 访问 的 数据 
库 ，Data Source 指定 SQL Server 的 计算 机 名 或 下 地 址 。 
对 于 Access 数据 库 也 可 以 采用 这 种 方式 进行 连接 ， 如 下 例 所 示 : 


<%cn.Open "Provider-Microsoft.Jet. OLEDB.4.0:Data Source=e:\book.mdb"%> 


3. 用 ODBC 连接 字符 串 连接 数据 库 
SQL 数据 库 也 可 以 不 设立 数据 源 ， 要 用 到 Driver 和 Dbq 两 个 参数 ， 如 下 例 所 示 : 
<%cn.Open "Driver-:;Database-booknet:Server-(local):UID-sa;PWD-"967 

其 中 ，Driver 指定 数据 源 驱动 程序 的 名 称 ，SQL Server 使 用 {SQL Server} 来 进行 标识 ; 
Database 指定 所 请 求 的 默认 数据 库 ，Server 指定 数据 源 服务 器 的 名 称 ， 设 为 (local) 时 ， 表示 
使 用 SQL Server 的 本 地 副本 。 

注意 : 

创建 没有 ODBC 数据 源 连接 的 应 用 程序 在 移植 到 别 的 服务 器 上 后 ， 就 可 以 立即 使 用 ， 
因此 它 是 应 用 程序 中 比较 常用 的 与 数据 库 连接 的 方法 。 

对 于 其 他 类 型 的 数据 库 ， 它 们 的 连接 方法 如 表 9-8 所 示 。 

表 9-8 ODBC 连接 字符 串 


数据 源 驱动 器 ODBC 连接 字符 串 


Microsoft Access | Driver- (Microsoft Access Driver(*.mdb)}:DBQ= 指 向 .mdb 文件 的 物理 路 径 
Oracle | Driver- (Microsoft ODBC for Oracle}:SERVER= 指 向 服务 器 的 路 径 
Driver-(Microsoft Excel Driver(*.xls)}:DBQ= 指 向 .xal 文件 的 物理 路 
径 :DriverID=278 


Microsoft Excel | 


Driver-(Microsoft Excel Driver(*.xls)}:DBQ= 指 向 .xal 文件 的 物理 路 
径 :DriverID=790 


Microsoft Excel 97 
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( 续 表 ) 
数据 源 驱动 器 ODBC 连接 字符 串 
Driver={Microsoft Paradox Driver(*.db)}:DBQ= 指 向 .db 文件 的 物理 路 
Paradox 
径 :DriverID=26 
X CDriver- (Microsoft Text Driver(*.txt:*.csv)};DefaultDir= 指 向 .txt 文件 的 物 


Visual FoxPro( 带 有 


理 路 径 
Driver-(Microsoft Visual FoxPro Driver}:SourceType=DBC:SourceDb= 指 


一 个 数据 库容 器 ) 向 .dbc 文件 的 物理 路 径 
Visual FoxPro( 不 带 Driver-(Microsoft Visual FoxPro Driver):SourceType-DBF:SourceDb- 指 
数据 库容 器 ) 向 .dbf 文件 的 物理 路 径 


【练习 9-4】 以 本 章 【练习 9-1】 创 建 的 数据 库 dbl.mdb 和 【练习 9-3】 创 建 的 系统 DSN 
为 基础 ， 创 建 Connection 对 象 并 与 数据 库 建立 连接 ， 读 取 数 据 库 指 定 表 中 的 第 一 条 记录 ， 
程序 运行 效果 如 图 9-24 所 示 。 
(1) 完成 【练习 9-3】 的 操作 后 ， 双 击 打开 C:\Inetpub\vwwwroot\AcDatabase 文件 夹 中 保 
存 的 数据 库 dbl.mdb( 如 图 9-25 所 示 )， 然 后 在 该 数据 库 的 数据 表 “ 表 1” 中 输入 如 图 9-26 


所 示 的 数据 。 
E 


CE TO 


B-D o» 


D abi : MEF (Accoee 2000 PHRI) 


Bekk np Rog gnto EO Gee X a [En 


Ap RM 


EL B] semuis 
a mamer 
团 misssner 
a 


图 9-24 程序 运行 效果 图 9-25 打开 dbl.mdb 数据 库 


(2) 完成 数据 的 输入 后 ， 选 择 “ 文 件 ”|“ 保 存 ” 命 令 ， 将 数据 表 “ 表 1” 保 存 ， 然 后 


关闭 Access 数据 库 。 


G) 选择 “开始 ”|“ 所 有 程序 ”| “附件 ”|“ 记 事 本 ”命令 ， 打 开 记 事 本 工具 ， 输 入 以 


下 代码 (如 图 9-27 所 示 ): 


<Center><H4> 数 据 表 " 表 1" 中 的 第 一 条 记录 </H4></Center> 


<Hr> 
<% 


Set conn- Server.CreateObject(" ADODB.Connection") EJ Connection 对 象 conn 
conn.Open "netdsn","sa","" "使 用 DSN 建立 conn 与 数据 库 的 连接 
Set rs = Server.CreateObject ("ADODB.Recordset") "创建 Recordset X1 $9 rs 
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sql = "Select * from X 1" "指定 一 个 SQL 查询 语句 
TS.Open sql.conn,1,1 "Recordset 对 象 使 用 SQL 查询 语句 打开 数据 库 
Response.Write rs.Fields("C-Id")&"<Br>" "显示 数据 库 中 的 内 容 


Response.Write rs.Fields("C-Name")&"-Br^" 
Response.Write  rs.Fields("C-address")&"-Br^" 
Response.Write rs.Fields("C-Tel")&"-Br^" 
Response.Write  rs.Fields("C-Mail") %> 


(4) 选择 “文件 "| 另存 为 ”命令 ,将 文件 以 名 Connection.asp 保存 至 CInetpubWwwwroot 
xf. 

(5) 启动 下 浏览 器 后 ， 在 地 址 栏 中 输入 http;/localhost/Connection.asp 并 按 Enter 键 ， 
效果 如 图 9-24 所 示 。 


] E 
er eaa Wie ERU HBA 
«Center avidi E PAE- FA oec 


图 9-26 输入 数据 图 9-27 Connection.asp 的 代码 


【练习 9-5】 以 【练习 9-4] 在 数据 表 “ 表 1” 中 输入 的 数据 为 基础 ， 创 建 一 个 具有 多 
种 与 数据 库 连 接 方 式 的 连接 文件 ， 并 在 ASP 程序 包含 它 显 示 数 据 库 中 表 的 内 容 , 程序 运行 
效果 如 图 9-28 所 示 。 

(1) 创建 一 个 名 为 Conn.asp 的 文件 ， 其 代码 如 下 所 示 : 


<% 

dim Conn 

Set conn= Server.CreateObject("ADODB.Connection") 
"使 用 DSN 与 数据 库 建立 连接 的 第 1 种 方法 
conn.Open "netdsn","sa"."" 

"使 用 DSN 与 数据 库 建立 连接 的 第 2 种 方法 
conn.ConnectionString = "DSN-netdsn;:UID-sa:PWD-:" 
conn.Open 

MEH DSN 与 数据 库 建 立 连 接 的 第 3 种 方法 
conn.Open "dsn-netdsn:UID-sa:PWD-:" 

"使 用 OLE DB 字符 串 与 数据 库 建立 连接 

conn.Open "Provider-SQLOLEDB.1:User ID-sa:Password-:Initial Catalog=booknet:Data 
Source-local" 
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"使 用 ODBC 字符 串 与 数据 库 建立 连接 
dim strConn 
strConn = "Driver-(SQL 
Server) :Database-booknet:Server-ZHANGSHIHUATEST;UID-sa;PWD-;" 
conn.Open strConn 
%> 


将 Conn.asp 文件 保存 至 C:\Inetpubvwwwroot 文件 夫 中 。 
创建 一 个 名 为 Connection2.asp 的 文件 ， 其 代码 如 下 所 示 ( 如 图 9-29 所 示 ): 


<Title> 数 据 库 连接 </Title> 
<!--#include file="conn.asp" --> 
<Center><H4> 显 示 数 据 库 中 表 的 内 容 </H4></Center> 
<H> 
<% 
Set rs = Server.CreateObject ("ADODB.Recordset") 
sql = "Select * from 表 1" 
rs.Open sql,conn,1,1 
With Response 
if rs.EOF then 
Response.Write "现在 数据 库 为 空 ! " 
else 
Response.Write "<TABLE BORDER-1 CELLSPACE-0 CELLPADDING=5>" &_ 
"<TR HEIGHT-12»-TD WIDTH=50><B> 编号 </B></TD>" &_ 
"<TD WIDTH=100><B> 名 称 </B></TD>" &_ 
"<TD WIDTH=200><B> 地 址 </B></TD>"&_ 
"<TD WIDTH=80><B> 电话 </B></TD></TR>" 
endif 
do Until rs.EOF 
Response.Write "<TR HEIGHT=12><TD WIDTH=50>" & rs.Fields("C-Id")& "</TD>" &_ 
"<TD WIDTH=100>" & rs.Fields("C-Name") & "</TD>" &_ 
"<TD WIDTH=200>" & rs.Fields("C-address") & "</TD>" &_ 
"<TD WIDTH=80>" & rs.Fields("C-Tel") & "</TD></TR>" 
rs.MoveNext 
loop 
Response.Write "</TABLE>" 
End With 
rs.close 
Set rs - Nothing 
conn.close 
set conn-Nothing 
%> 
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(4) 将 Connection2.asp 文件 保存 至 C:\Inetpubvwwwroot X 4T X P. 
(5) 启动 正 浏 览 器 后 ， 在 地 址 栏 中 输入 http///localhost/Connection2.asp 并 按 Enter 4t, 
效果 如 图 9-28 所 示 


图 9-28 Connection2.asp 的 效果 图 9-29 Connection2.asp 的 代码 


9.2.2 Connection 对 象 的 属性 


Connection 对 象 的 属性 及 其 相关 说 明 如 表 9-9 所 示 。 


3& 9-9. Connection 对 象 的 属性 


属 性 说 R 
Attributes 设置 Connection 对 象 控制 事务 处 理 时 的 行为 
CommandTimeout Execute 方法 的 最 长 执行 截止 时 间 
ConnectionString 指定 Connection 对 象 的 数据 库 连 接 信息 


ConnectionTimeout Open 方法 与 数据 库 连 接 的 执行 截止 时 间 
控制 光标 的 类 型 。 确 定 是 使 用 客户 端 (adUseClient) 游 标 引擎 , 还 是 使 用 服务 


CursorLocation 

器 端 (adUseServer) 游 标 引 擎 。 默 认 值 是 adUseServer 

在 数据 提供 者 提供 多 个 数据 库 的 情况 下 ， 如果 ConnectString 中 未 指定 数据 
DefaultDatabase 

库 名 称 ， 就 使 用 这 里 所 指定 的 名 称 
IsolationLevel 指定 和 其 他 并 发 事务 交互 时 的 行为 或 事务 
Mode 指定 对 Connection 的 读 写 权限 

如 果 ConnectionString 中 未 指定 OLE DB 数据 或 服务 提供 者 的 名 称 ， 就 使 
Provider 用 这 时 指定 的 名 称 。 默 认 值 是 MSDASQL(Microsoft OLE DB Provider for 

ODBC) 

指定 连接 的 状态 。 若 是 0 或 adStateClosed， 则 连接 是 关闭 的 ， 若 是 1 或 
State 


adStateOpen， 则 连接 是 打开 的 
Version 返回 ADO 版 本 号 
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下 面 对 表 9-9 中 常用 的 几 个 Connection 对 象 的 属性 进行 介绍 。 
1. Attributes 属性 


Attributes 属性 通过 两 个 常数 确定 当前 事务 失败 或 成 功 后 是 否 自动 开始 一 次 新 的 事务 。 
如 果 设 为 131072 或 ADO 常量 adXactCommitRetaining, 则 调用 CommitTrans 方法 时 自动 启 
动 一 次 新 的 事务 ; 如 果 设 为 262144 或 ADO 常量 adXactAbortRetaining, 则 调用 RollbackTrans 
方法 后 ， 自 动 开始 一 次 新 的 事务 。 如 果 要 达到 两 种 效果 ， 则 该 属性 应 设 为 两 者 的 和 。 

2. CommandTimeout 属性 


CommandTimeout 属性 用 来 设置 Connection 对 象 的 Execute 方法 的 最 长 执行 时 间 。 其 
默认 值 为 30s。 如 果 超 过 时 间 未 完成 命令 ， 则 终止 命令 并 产生 一 个 错误 。 命 令 无 法 在 指定 
时 间 内 执行 完成 ， 可 能 是 因为 网 络 延 时 或 服务 器 负载 过 重 而 无 法 及 时 响应 造成 的 。 如 果 将 
该 属性 设 为 0， 则 无 限期 地 等 待 直到 执行 完成 。 如 下 例 将 把 CommandTimeout 的 最 长 时 间 
设置 为 60s: 


<%db. CommandTimeout=60%> 


3. ConnectionString 属性 


ConnectionString 属性 指定 数据 提供 者 或 服务 提供 者 打开 数据 源 连接 所 需要 的 特定 信 

息 。 除 了 可 以 使 用 Connection 对 象 的 Open 方法 来 打开 数据 库 外 ， 还 可 以 使 用 Connection 
对 象 的 ConnectionString 属性 来 打开 数据 库 ， 如 下 例 所 示 : 

<% 

Dim db 

Set db=Server.CreatObject("ADODB.Connection") 

db.ConnectionString-"Dbq-"&Server.Mappath("db1.mdb")&": - 

Driver- (Microsoft Access Driver(*.mdb)] " 


db.Open 
%> 


4. ConnectionTimeout 属性 


确定 ADO 试图 与 一 个 数据 源 建 立 连 接 时 的 最 大 连接 时 间 ，, 默认 值 是 15s。 如 果 超 过 时 
间 未 完成 连接 ， 则 终止 连接 并 产生 一 个 错误 。 如 果 将 该 属性 设 为 0， 则 一 直 等 待 直到 连接 
成 功 为止 。 如 下 例 将 把 ConnectionTimeonut 的 默认 值 设置 为 30s: 


<%db. ConnectionTimeout=30%> 
5. Mode 属性 
Mode 属性 用 来 设置 连接 数据 库 的 权限 ， 利 用 该 属性 就 可 以 在 打开 数据 库 时 限制 数据 
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库 的 连接 方式 ， 如 只 读 或 只 写 。 如 果 不 进行 设置 ， 可 具有 对 数据 库 进行 读 写 操作 的 权限 ， 


Mode 属性 的 取 值 及 其 相关 说 明 如 表 9-10 所 示 。 


表 9-10 Mode 属性 的 取 值 及 其 相关 说 明 


MODE 属性 说 RB 
adModeUnknown 未 指定 数据 源 的 连接 许可 权 ( 默 认 值 ) 
adModeRead 连接 是 只 读 的 
adModeWrite 连接 是 只 写 的 
adModeReadWrite 连接 是 可 读 写 的 
adModeShareDenyRead 拒绝 其 他 用 户 打 开 数 据 源 的 读 连 接 
adModeShareDenyWrite 拒绝 其 他 用 户 打开 数据 源 的 写 连接 
adModeShareExclusive 以 独占 方式 打开 数据 源 


adModeShareDenyNone 


其 他 用 户 不 能 以 任何 方式 打开 连接 


9.2.3 Connection 对 象 的 方法 


Connection 对 象 的 方法 及 其 相关 说 明 如 表 9-11 所 示 。 


R 9-11 Connection 对 象 的 方法 


5 法 说 了 明 
Open 建立 Connection 对 象 和 数据 库 之 间 的 连接 
Close 关闭 Connection 对 象 和 数据 库 之 间 的 连接 
Execute 执行 数据 库 查 询 (可 以 执行 各 种 操作 ) 
Cancel 取消 未 执行 完 的 异步 Execute 或 Open 方法 
BeginTrans 开始 事务 处 理 
CommitTrans 提交 一 个 事务 处 理 结果 
RollbackTrans 取消 一 个 事务 处 理 结果 


下 面 对 表 9-11 中 常用 的 几 个 Connection 对 象 的 方法 进行 介绍 。 


1. Open 方 法 


Open 方法 用 来 建立 Connection 对 象 和 数据 库 之 间 的 连接 。 只 有 用 Open 方法 和 数据 库 
建立 连接 后 ， 才 可 以 继续 进行 各 种 操作 。 


2. Close 方法 


Close 方法 用 来 关闭 一 个 已 打开 的 Connection 对 象 及 其 相关 的 各 种 对 象 。 它 的 主要 作用 
是 切断 Connection 对 象 与 数据 库 之 间 的 连接 通道 。 当 该 通道 被 关闭 后 ,所 有 依赖 该 Connection 
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对 象 的 Command 或 Recordset 对 象 也 将 立即 被 切断 ， 方 法 如 下 : 


<% 

db.Close 

Set db=nothing 
%> 


注意 : 

db.Close 用 来 关闭 连接 ， 这 样 可 以 释放 与 连接 有 关 的 系统 资源 。Connection 对 象 本 身 
并 没有 释放 ， 还 可 以 更 改 该 对 象 的 属性 并 重新 打开 。 如 果 要 从 内 存 中 完全 释放 Connection 
对 象 占用 的 资源 ， 可 以 将 其 设 为 Nothing。 


3. Execute 方法 
Execute 方法 执行 指定 的 查询 、SQL 语句 、 存 储 过 程 或 数据 提供 者 指定 的 文本 ， 其 语 
法 结构 有 两 种 : 
Set Recordset 对 象 =Connection 对 象 . Execute(SQL 字符 串 ) 
或 
Connection 对 象 .Execute(SQL 字符 串 ) 
注意 : 


当 对 数据 库 查 询 显 示 记 录 时 常 采用 第 一 种 Execute 执行 方法 , 它 将 返回 一 个 Recordset 对 象 ; 
而 执行 添加 、 删 除 和 更 新 操作 时 常 采 用 第 二 种 Execute 执行 方法 ， 它 不 返回 Recordset 对 象 。 


在 不 返回 Recordset 对 象 时 ， 可 使 用 一 个 number 参数 来 返回 此 操作 影响 的 记录 条 数 ， 
如 下 例 所 示 : 
<% 
strSql="Delete From users Where name=' 陈 功 " 
db.Execute strSqLnumber 


Response. Write " 共 删 除 "&number&" 条 记录 " 
997 


4. BeginTrans 方法 
BeginTrans 方法 用 于 开始 一 个 事务 处 理 。 其 语法 结构 如 下 : 


Connection 对 象 . BeginTrans 
所 有 的 数据 库 操作 都 属于 事务 处 理 。 当 开始 一 个 事务 处 理 后 , 就 打开 Web 页 面 与 数据 
库 的 事务 处 理 通 道 , 此 时 可 以 从 Web 页 面 上 直接 更 新 数据 库 内 容 。 但 只 有 在 提交 事务 处 理 
结果 后 ， 数 据 库 的 内 容 才 能 被 真正 更 新 ， 否 则 ， 所 有 的 操作 都 无 效 。 


第 9 章 利用 ADO 组 件 访问 数据 库 ag. 
9.3 Command 对 £& 


Command 对 象 定义 将 对 数据 源 执行 的 指定 命令 ， 这 些 命令 可 以 是 SQL 语句 、 表 名 、 
存储 过 程 或 其 他 数据 提供 者 支持 的 文本 格式 。 Command 对 象 的 作用 相当 于 一 个 查询 , 使 用 
它 可 以 查询 数据 库 并 返回 记录 和 集 ， 也 可 执行 大 量 操作 或 处 理 数据 库 结构 。 

用 Command 对 象 执行 查询 的 方式 与 用 Connection、Recordset 对 象 执行 查询 的 方式 一 
样 ， 但 使 用 Command 对 象 可 以 改善 查询 。 用 Command 对 象 的 参数 查询 ， 可 先 在 数据 源 
上 准备 一 种 查询 方式 ， 然 后 用 不 同 的 值 来 重复 执行 查询 ， 以 避免 重复 发 出 类 似 的 SQL 查 
询 语句 。 


9.3.1 创建 Command 对 象 


创建 Command 对 象 的 语法 结构 如 下 : 
Set Command 对 象 =Server.CreatObject("ADODB.Command") 
然后 ， 可 用 ActiveConnection 属性 指定 要 利用 的 Connection 对 象 名 称 ， 语 法 如 下 : 


Command 对 象 .ActiveConnection=Connection 对 象 


1. 通过 Connection 对 象 创 建 Command 对 象 


每 个 Command 对 象 都 有 一 个 相关 联 的 Connection 对 象 。 在 创建 Command 对 象 之 前 ， 
一 般 应 该 先 建立 Connection 对 象 。 
通过 Connection 对 象 创建 Command 对 象 ， 如 下 例 所 示 。 


<% 

Dim conn.cmd 

"创建 Connection 对 象 conn 

Set conn- Server.CreateObject("ADODB.Connection") 
fH] DSN 建立 conn 与 数据 库 的 连接 

conn.Open "booknetdsn"."sa"."" 

"创建 Command 对 象 cmd 

Set cmd- Server.CreateObject(" ADODB.Command") 
' 将 Connection 对 象 conn 指定 给 Command X1 $$ cmd 
cmd.ActiveConnection=conn 

9o 


2. 直接 创建 Command 对 象 


对 于 Command 对 象 ,也 可 以 不 先 创建 Connection 对 象 就 直接 使 用 , 只 需 设 置 Command 
对 象 的 ActiveConnection 属性 为 一 个 连接 字符 串 即 可 。 此 时 ，ADO 会 自行 创建 一 个 隐 含 的 
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Connection 对 象 ， 但 并 不 给 它 分 配对 象 变量 。 
注意 : 
创建 Command 对 象 的 过 程 中 ， 如 果 没有 把 ActiveConnection 属性 设置 为 一 个 明确 的 
Connection 对 象 ， 即 使 使 用 相同 的 连接 字符 囊 ，ADO 也 会 为 每 个 Command 对 象 创建 一 个 
新 的 连接 。 
不 通过 Connection 对 象 直接 创建 Command 对 象 ， 如 下 例 所 示 。 
<% 
Dim cmd 


Set cmd= Server.CreateObject("ADODB.Command ") 
cmd. ActiveConnection= "addr" 
%> 


9.3.2 Command 对 象 的 属性 


Command 对 象 的 属性 及 其 相关 说 明 如 表 9-12 所 示 。 


3€ 9-12. Command 对 象 的 属性 


m 性 说 — 0" 
ActiveConnection 指定 Connection 的 连接 对 象 
CommandText 指定 数据 库 的 查询 信息 
CommandType 指定 数据 查询 信息 的 类 型 
CommandTimeout 指定 Command X1 & ff Execute 方法 的 最 长 执行 时 间 
Prepared 指定 数据 查询 信息 是 否 要 先 编译 和 存储 


下 面 对 表 9-12 中 常用 的 几 个 Command 对 象 的 属性 进行 介绍 。 
1. ActiveConnection 属性 


ActiveConnection 属性 设置 或 返回 Command 对 象 的 连接 信息 ， 该 属性 可 以 是 一 个 
Connection 对 象 或 连接 字符 串 。 其 语法 结构 为 : 
Command 对 象 .ActiveConnection=Connection 对 象 
如 果 没 有 明确 建立 Connection 对 象 ， 则 其 语法 结构 为 : 


Command 对 象 .ActiveConnection= 数 据 源 名 称 字符 串 


2. CommandText 属性 
CommandText 属性 设置 或 返回 数据 源 的 命令 串 ， 该 命令 串 可 以 是 SQL 语句 、 表 、 存 
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储 过 程 或 数据 提供 者 支持 的 任何 特殊 有 效 的 命令 文本 。 其 语法 结构 如 下 : 
Command 对 象 . CommandText-SQL 语句 或 数据 表 名 或 查询 名 或 存储 过 程 名 
注意 : 


如 果 CommandText 属性 指定 的 是 数据 表 名 ， 则 将 查询 和 返回 整个 数据 表 中 的 所 有 


内 容 。 


3. CommandType 属性 

CommandType 属性 用 于 指定 Command 对 象 中 数据 查询 信息 的 类 型 ,其 语法 结构 如 下 : 
Command 对 象 .CommandType= 类 型 值 

CommandType 属性 的 取 值 及 其 相关 说 明 如 表 9-13 所 示 。 


3& 9-13. CommandType 属性 的 取 值 及 其 相关 说 明 


CommandType 属性 说 RB 
AdCmdText | 1 | SQL 命令 类 型 
AdCmdTable 数据 表 名 
AdCmdStoredProc | | 查询 名 或 存储 过 程 名 
AdCmdUnknown | s | 未 知 的 。CommandText 参数 类 型 无 法 确定 
AdExecuteNoRecords 不 返回 记录 和 集 的 命令 或 存储 过 程 
AdCmdFile 256 已 存在 的 记录 集 的 文件 名 
AdCmdTableDirect 512 CommandText 是 一 个 表 , 在 查询 中 返回 该 表 的 全 部 行 和 列 


为 Command 对 象 指定 CommandType 值 ， 如 下 例 所 示 : 


<% 


Set cmd= Server.CreateObject("ADODB.Command ") 
cmd. ActiveConnection=conn 

cmd.CommandType-1 

cmd.CommandText-"Select * From users" 
cmd.CommandType-2 

cmd.CommandText-"users" 


%> 


在 未 指定 CommandType 值 的 情况 下 ， 系 统 会 自行 进行 判定 查询 信息 的 类 型 。 指 定 
CommandType 值 可 以 节省 系统 判定 过 程 的 时 间 ， 加 快 系统 运行 的 速度 。 
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4. CommandTimeout 属性 


CommandTimeout 属性 设置 执行 一 个 Command 对 象 时 的 等 竺 时间， 默认 值 是 30s。 如 
果 在 这 个 时 间 内 Command 对 象 没 有 执行 完 ， 则 终止 命令 并 产生 一 个 错误 。 
5. Prepared 属性 


Prepared 属性 指出 在 调用 Command X RHY Execute 方法 时 ,是 否 将 查询 的 编译 结果 存 
储 下 来 。 如 果 将 该 属性 设 为 True， 则 会 编译 并 保存 查询 结果 ， 这 样 将 影响 第 一 次 的 查询 速 
度 ， 但 一 旦 数据 提供 者 编译 了 Command 对 象 ， 数 据 提供 者 在 以 后 的 查询 中 将 使 用 编译 后 
的 版 本 ， 从 而 极 大 地 提高 速度 。 其 语法 结构 如 下 : 


Command 对 象 . Prepared= 布 尔 值 


9.3.3 Command 对 象 的 方法 


Command 对 象 的 方法 及 其 相关 说 明 如 表 9-14 所 示 。 


表 9-14 Command 对 象 的 方法 


Execute 执行 数据 库 查询 (可 以 执行 各 种 操作 ) 


CreateParameter 用 来 创建 一 个 Parameter 子 对 象 
取消 一 个 未 确定 的 异步 执行 的 Execute 方法 


9.3.4 使 用 Command 对 象 的 方法 


使 用 Command 对 象 有 几 个 重要 的 步 又， 创建 Command 对 象 ， 指 定 对 象 数据 库 连 接 ， 
指定 SQL 指令 和 引用 Execute 方法 。 

创建 Command 对 象 和 连接 数据 库 一 样 ， 运 用 Command 对 象 之 前 首先 必须 引用 
CreateObject 对 象 ， 创 建 其 对 象 实 体 ， 设 定 对 象 识 别名 称 ， 如 下 : 


Dim objCommand 
Set objCommand =Server.CreateObject("ADODB.Command") 


其 中 ，objCommand 为 所 要 创建 的 指令 对 象 名 称 ， 应 用 程序 在 创建 对 象 实体 后 ， 以 此 
作为 名 称 识别 。 
e 指定 对 象 数 据 库 连接 : Command 对 象 以 特定 连接 为 基础 ， 针 对 连接 的 数据 库 进 行 
存 取 操作 ， 应 用 程序 必须 设置 Command 对 象 所 要 存 取 的 数据 库 连接 对 象 。 
* SQL 指令 : Command 对 象 本 身 并 没有 具备 数据 变动 的 功能 ， 其 主要 功能 在 于 将 指 
定 的 SQL 语句 传送 至 数据 库 ， 由 数据 库 根据 传送 过 来 的 SQL 进行 数据 存 取 操 作 ， 
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ASP 网 页 则 负责 将 特定 的 SQL 指定 给 Command 对 象 。 
e 引用 Excute 方法 : 当 Command 对 象 设 定 完 成 后 ， 最 后 只 需 引 用 方法 Execute， 即 
可 将 指定 的 SQL 通过 连接 对 象 传送 至 伺服 端 数据 库 作 处 理 。 


9.3.5 ”参数 查询 


如 果 要 创建 一 个 使 用 多 次 但 每 次 使 用 不 同 值 的 查询 ， 那 么 应 在 查询 中 使 用 参数 ， 即 创 
建 参数 查询 。 参 数 是 查询 时 所 提供 值 的 占 位 符 , 它 将 WHERE 子 句 中 国定 值 用 “?” 来 代替 ， 
称 作 占 位 符号 。 这 样 就 避免 了 在 每 次 查询 中 重新 建立 SQL 查询 语句 。 

一 个 Parameter 对 象 就 是 一 个 参数 ，Parameters 集合 就 是 若干 个 参数 的 集合 。Parameter 
对 象 和 Parameters 集合 都 有 各 自 的 属性 和 方法 。 

1. Parameters 集合 的 属性 和 方法 


Command 对 象 包含 一 个 Parameters 集合 。Parameters 集合 包含 参数 化 的 Command 对 
象 的 所 有 人 参数， 每 个 参数 信息 由 Parameter 对 象 表示 。Parameters 集合 的 属性 和 方法 及 其 相 
关 说 明 如 表 9-15 所 示 。 


3&9-15 Parameters 集合 的 属性 和 方法 


a Wu 说 了 明 
Count 属性 返回 Command 对 象 的 参数 个 数 
Append 方法 增加 一 个 Parameter 对 象 到 Parameters 集合 
Delete 方法 从 Parameters 集合 中 删除 一 个 Parameter 对 象 
Item 方法 取得 集合 内 的 某 个 对 象 
Refresh 方法 重新 整理 Parameters 数据 集合 


2. 创建 Parameter 对 象 


要 执行 一 个 参数 查询 ， 必 须 先 调用 CreateParameter 方法 创建 一 个 Parameter 对 象 ， 然 
后 调用 Append 方法 将 其 添加 到 Parameters 集合 中 ， 再 将 值 赋 给 参数 。 创 建 Parameter 对 象 
的 语法 结构 如 下 : 
Set Parameter 对 象 =~Command 对 象 .CreateParameter(Name.Type.Direction.Size,Value) 
其 中 ，Name 表示 参数 名 ，Type 表示 参数 类 型 ，Direction 表示 参数 的 数据 流向 ，Size 
表示 字符 参数 串 长 度 ，Value 表示 参数 的 值 。 


创建 Parameter 对 象 的 过 程 中 ， 参 数 的 类 型 由 Type 来 定义 ， 它 的 取 值 及 其 相关 说 明 如 
表 9-16 所 示 。 
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表 9-16 Type 的 取 值 范围 


常 量 值 说 RH 
AdBiglInt 20 8 位 符号 整数 
AdBinal 128 二 进 制 值 
AdBoolean 11 布尔 值 
AdBSTR 8 以 空 值 结束 的 Unicode 字符 串 
AdChar 129 字符 串 值 
AdCurrency 货币 值 ，8B 长 
AdDate 7 日 期 值 
AdDBDate 133 日 期 值 ， 格 式 是 : yyyymmdd 
AdBDTime 134 时 间 值 ， 格 式 是 : hhmmss 
AdDBTimeStamp 135 日 期 时 间 值 ， 格 式 是 : yyyymmddhhmmss 
AdDecimal 14 有 固定 精度 的 数值 
AdDouble 5 双 精 度 浮 点 值 
AdEmp | o č [ zmen 
AdError | w [| 32 位 错误 码 
AdGUID 72 全 局 唯一 指示 符 
AdIDispatch | 。 | 指向 OLE 对 象 的 接口 指针 
Adinteger 4 位 符号 整数 
AdIUnknown 指向 OLE 对 象 的 IUnknown 接口 指针 
AdLongarBina: 长 整 型 二 进 制 ( 仅 用 于 Parameter 对 象 ) 


AdLongarChar 201 长 字符 串 值 ( 仅 用 于 Parameter 对 象 ) 
AdLongarWChar 203 以 空 值 结束 的 长 字符 串 值 ( 仅 用 于 Parameter 对 象 ) 
AdNumeric 131 有 固定 精度 的 数值 

AdSingle 4 单 精度 浮 点 值 

AdSmallInt 2 两 位 符号 整数 

AdTinyInt 16 一 位 符号 整数 

AdUnsignedBigInt 21 8 位 无 符号 整数 

AdUnsignedInt 19 4 位 无 符号 整数 

AdUnsignedSmallInt 18 两 位 无 符号 整数 

AdUnsignedTinyInt 17 一 位 无 符号 整数 

AdUserDefined 132 户 定 义 的 变量 

AdvarBinary 二 进 制 值 ( 仅 用 于 Parameter 对 象 ) 

AdvarChar 字符 串 值 ( 仅 用 于 Parameter Xf 5) 

AdVariant OLE 的 Variant 类 型 

AdVarWChar 以 空 值 结束 的 Unicode 字符 串 ( 仅 用 于 Parameter 对 象 ) 
AdWChar 以 空 值 结束 的 Unicode 字符 串 


第 9 章 利用 ADO 组 件 访问 数据 库 *187* 


&& Parameter 对 象 的 过 程 中 ， 参 数 的 数据 流向 由 Direction 来 定义 ， 它 的 取 值 及 其 相 
关 说 明 如 表 9-17 所 示 。 


3& 9-17 Direction 的 取 值 范围 


说 — m 


Ales — | — 3 输入 参数 ， 即 传送 数据 给 一 个 存储 过 程 
AdparamOuput | 2 输出 参数 ， 即 得 到 Command 对 象 执行 后 的 输入 值 
AdParamInputOutput | 3 输入 和 输出 参数 ， 即 传送 并 接收 数据 


AdParamReturnvalue 


返回 值 ， 用 来 读 取 从 存储 过 程 返回 的 状态 值 


3. Parameter 对 象 的 属性 


Parameter 对 象 表 示 基 于 带 参 数 的 查询 或 存储 进程 的 Command 对 象 相关 的 参数 。 
Parameter 对 象 的 一 些 属性 是 从 传递 给 Command 对 象 CreateParameter 方法 的 参数 那里 继承 
而 来 的 ，Parameter 对 象 的 属性 及 其 相关 说 明 如 表 9-18 所 示 。 


表 9-18 Command 对 象 的 CreateParameter 方法 的 参数 意义 


$5 HB yt M 
Name 参数 名 
Type 参数 类 
Direction 参数 方向 ， 传 入 还 是 传 出 
Size 参数 大 小 ， 指 定 最 长 字 节 ， 可 以 省 略 
Value 参数 值 
Attributes 指定 该 参数 的 数值 性 质 


其 中 Attributes 参数 用 来 指定 参数 值 的 性 质 ， 其 取 值 及 其 相关 说 明 如 表 9-19 所 示 。 


表 9-19 Attributes 参数 的 取 值 范围 


常量 说 m" 
AdParamLong 允许 有 相当 大 的 数值 
AdParamNullable 允许 NULL 值 
AdParamSigned 允许 数值 有 正 负 符号 


4. Parameter 对 象 的 方法 


Parameter 对 象 只 有 一 个 AppendChunk 方法 , 用 来 处 理 传递 给 一 个 参数 的 长 文本 或 二 进 制 
数据 。 它 允许 把 一 个 长 文本 或 二 进 制 信息 加 入 到 Parameter 对 象 的 末尾 ， 其 语法 结构 如 下 : 
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Parameter 对 象 .AppendChunk( 长 文本 或 二 进 制 数据 ) 
在 使 用 该 方法 前 ，Parameter 对 象 的 Attributes 参数 必须 设置 为 adFLDLong， 这 样 
Parameter 对 象 能 够 接收 该 方法 加 入 的 长 文本 或 二 进 制 数据 。 当 多 次 调用 该 方法 时 ， 新 数据 
就 可 以 连续 性 地 加 入 到 现存 的 参数 中 。 


(1) 数据 库 本 身 由 多 个 数据 表 所 组 成 ， 表 中 每 一 行 代表 一 个 ， 每 一 列 代 
表 一 个 

Q) 索引 本 身 根据 其 功用 可 以 分 为 两 种 ， 和 

(3) 指定 SELECT 语句 查询 及 与 查询 相关 的 表 或 视图 。 

(4) 建立 Connection 对 象 是 采用 Server 对 象 的 方法 进行 的 。 


9.4.2 选择 题 


(1) 在 ODBC 数据 源 管 理 器 中 ，DSN 还 分 为 用 户 DSN、 系 统 DSN 和 文件 DSN 这 3 
种 。 用 户 可 以 通过 ODBC 数据 源 管理 器 创建 (  ) 类 型 的 DSN。 


A.1 种 B. 2 种 
C .3 种 D. 以 上 全 错 

(2) 在 开发 基于 数据 库 的 Web 应 用 程序 时 ， 构 建 (””) 都 是 可 以 的 
A. 系统 DSN 和 文件 DSN B. 文件 DSN 和 用 户 DSN 
C. 系统 DSN 和 用 户 DSN D. 以 上 全 错 


9.43 ”问答 题 


(1) OLE DB 有 哪 两 层 结 构 ， 有 什么 优势 ? 
(2) 在 ADO 模型 中 有 哪些 对 象 ? 
(3) 简 述 Command 对 象 和 Connection 对 象 之 间 的 关系 。 


9.44 ”操作 题 


(1) 在 Access 2003 中 创建 一 个 名 为 CDB.mdb 的 数据 库 ， 并 在 该 数据 库 中 设置 一 个 如 
图 9-30 所 示 的 数据 表 Custom。 
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图 9-30 ”创建 数据 表 


Q) 以 上 例 创 建 的 数据 库 为 基础 ， 参 考 本 章 练习 所 介绍 的 方法 ， 创 建 数 据 库 连接 。 
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RecordSet 对 象 是 一 个 记录 的 集合 ， 是 按 字 段 (或 列 ) 和 记录 (或 行 ) 的 形式 构成 的 二 维 表 。 每 
个 RecordSet 对 象 表示 表 中 的 记录 或 运行 一 次 查询 所 得 到 的 结果 。 使 用 RecordSet 对 象 ， 可 以 
在 记录 一 级 上 对 数据 库 中 的 数据 进行 各 种 操作 ， 如 增 、 删 和 定位 记录 ， 以 及 更 新 数据 库 等 。 

通过 本 章 的 理论 学 习 和 练习 ， 用 户 应 了 解 和 掌握 以 下 内 容 : 

e 了 解 用 Recordset 对 象 处 理 结果 的 方法 

o 掌握 Recordset 的 应 用 

e 了 解 Fields 集合 和 Field 对象 


10.1 认识 Recordset 对 象 


对 于 检索 数据 ， 检 查 结果 ， 更 改 数据 库 ，ADO 提供 了 Recordset 对 象 。Recordset 对 象 
是 一 个 记录 的 集合 ， 用 于 检索 和 更 新 数据 库 。 数 据 库 应 用 程序 通常 用 Connection 对 象 建立 
连接 并 用 Recordset 对 象 处 理 返回 的 数据 。 

尽管 Connection 对 象 简化 了 连接 数据 库 和 查询 任务 ,但 Connection 对 象 仍 有 许多 不 足 : 
检索 和 显示 数据 库 信息 的 Connection 对 象 不 能 用 于 创建 脚本 ; 用 户 必须 确切 地 知道 要 对 数 
据 库 作 出 的 更 改 ， 然 后 才能 使 用 查询 实现 更 改 。 


10.1.1 Recordset 对 象 简介 


Recordset 对 象 可 以 创建 一 个 记录 集合 ， 并 且 将 所 需 的 记录 从 表 中 取出 。 同 时 ， 使 用 虚 
拟 表格 的 方式 ， 每 一 行为 一 条 记录 ， 每 一 列 则 代表 一 个 字段 ， 提 供给 ASP 程序 处 理 ， 如 图 
10-1 所 示 。 


分 类 编号 产品 名 称 产品 简 述 
LA-Gear Mouse PAD — |MODEL No.TMP- 0312 
记录 指针 E— 55 0001000002 | LA-Gear Mouse PAD 1 | MODEL No.TMP- 04 


图 10-1 Recordset 对 象 的 记录 指针 
© Recordset 中 的 记录 指针 具有 游标 类 型 (CursorType)。 不 同 的 游标 类 型 可 对 记录 集 进 
行 不 同 的 操作 ， 默 认 值 为 0， 代表 记录 指针 只 能 向 前 移动 记录 集 ， 也 可 定义 成 其 他 
值 ， 允 许 记 录 指 针 在 记录 集中 上 下 移动 。 
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e 数据 源 本 身 具有 锁定 的 能 力 。 具 有 这 项 功能 最 主要 的 目的 在 于 避免 两 个 SQL 查询 
操作 同时 写 同一 条 记录 。 

e 当前 记录 指针 的 位 置 。Recordset 的 MoveFirst 方法 可 以 将 记录 指针 移 到 第 一 条 记录 
的 位 置 ，MoveLast 方法 可 将 记录 指针 移 到 记录 集合 的 最 后 一 条 ，MoveNext 方法 可 
使 指针 移 到 下 一 条 ，MovePrevious 方法 则 是 移 到 上 一 条 。 

1. Recordset 对 象 的 属性 


Recordset 对 象 的 属性 及 其 相关 说 明 如 表 10-1 所 示 。 


表 10-1. Recordset 对 象 的 属性 


m 性 说 阴 
设置 或 返回 当前 记录 所 在 的 页 码 。 用 该 属性 可 使 当前 记录 跳 到 指定 的 页 ， 
AbsolutePage 
如 : <% rs.AbsolutePage = 6 %> 
设置 或 返回 当前 记录 在 记录 集中 的 位 置 。 用 该 属性 可 使 某 一 记录 成 为 当前 
AbsolutePosition 
记录 ， 如 : <% rs.AbsolutePosition = 10 %> 
定义 Recordset 对 象 与 数据 库 的 连接 。 该 属性 或 者 指向 一 个 当前 打开 的 
ActiveConnection 
Connection 对 象 ， 或 者 定义 一 个 新 的 连接 
BOF 若 记 录 指 针 位 于 第 一 条 记录 之 前 ， 则 为 True， 和 否则 为 False 
BookMark 设置 或 返回 一 个 记录 的 书签 ， 如 mark-rs.BookMark 或 rs.BookMark-mark 
CacheSize 设置 本 地 计算 机 可 以 缓存 的 记录 数 ， 默 认 值 为 1 
CursorType 设置 记录 集 所 用 的 游标 类 型 ， 详 见 表 10-3 
设置 游标 位 置 ， 若 设 成 1 或 adUseClient， 使 用 客户 端 提供 的 本 地 游标 ， 若 
CursorLocation 
设 成 2 或 adUseServer( 默 认 值 )， 则 使 用 数据 提供 者 的 游标 
指出 当前 记录 的 编辑 状态 ， 取 值 如 下 。 
e 0 或 常量 adEditNone: 在 当前 处 理 过 程 中 没有 编辑 操作 
—" e 1 或 常量 adEditInProgress: 当前 记录 已 被 更 改 ， 但 尚未 保存 到 数据 库 
lode 
, * 2 或 常量 adEditAdd 当前 缓冲 区 内 数据 是 用 AddNew 方法 写 入 的 新 记 
录 ， 但 尚未 保存 到 数据 库 
e 3 或 常量 adEditDelete: 当前 记录 已 被 删除 
EOF 车 记录 指针 位 于 最 后 一 条 记录 之 后 ， 则 为 True， 和 否则 为 False 
Filter 定义 筛选 器 来 获取 特定 的 记录 ， 如 rs.Filter="AuthorID">1000 
LockType 设置 记录 集 所 用 的 锁定 类 型 ， 详 见 表 10-4 
MaxRecords 确定 一 次 所 能 返回 的 最 大 记录 数 ， 默 认 值 为 0， 表示 返回 全 部 请 求 的 记录 。 
在 记录 集 关 闭 时 该 属性 可 读 写 ， 在 打开 记录 集 后 只 读 
PageCount 记录 集 所 包含 的 页 数 ， 每 页 记录 数 由 PageSize 决定 
PageSize 指定 一 页 中 包含 的 记录 数 
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E) 
m 性 说 m" 
RecordCount 记录 集 所 包含 的 记录 条 数 
Sort 设置 记录 集 的 排序 方式 
Source 设置 记录 和 集 数据 来 源 ,可 以 是 Command HR, SQL 语句 、 表 名 或 存储 过 程 


确定 记录 集 的 打开 /关闭 状态 ， 取 值 如 下 。 
* 0 或 adStateClosed: 表示 记录 和 集 已 关闭 
e 1 或 adStateOpen: 表示 记录 集 已 打开 


vate e 2 或 adStateConnecting: 表示 正在 连接 
e 3 或 adStateExecuting: 表示 记录 集 正 在 执行 一 个 命令 
e 4 或 adStateFetching: 表示 记录 集 正 在 获取 数据 
Status 当前 记录 所 处 的 状态 ， 详 见 表 10-5 


【练习 10-1】 创 建 一 个 搜索 页 面 ， 当 用 户 在 表单 中 输入 出 版 社 名 称 并 单 击 “ 提 交 ” 按 钮 
后 , 可 返回 数据 库 中 该 出 版 社 所 有 图 书 的 详细 信息 , 程序 运行 效果 如 图 10-2 和 图 10-3 所 示 ( 在 
操作 本 实例 前 ， 用 户 应 结合 本 书 第 9 章 所 介绍 的 内 容 创建 搜索 页 面 的 数据 库 并 输入 数据 )。 

(1) 创建 一 个 名 为 “出 版 社 查询 .asp” 的 网 页 ， 其 代码 如 下 所 示 : 


<%@ Language=VBScript %> 
<% Response.Buffer = True %> 
<HTML> 
<TITLE> 出 版 社 查询 </TITLE> 
<HEAD> 
«SCRIPT Language="VBScript" RUNAT-"Server"^ 
Sub rs Display() 
dim strConn,strSQL str Writer 
strPress — Request.Form("PressName") 
if strPress<>"" then 
"创建 Connection 对 象 conn 
Set conn=Server.CreateObject("ADODB.Connection") 
"HEH DSN 建立 conn 与 数据 库 的 连接 
strConn-"Driver- (SQL Server}:Database=booknet:Server=ZHANGSHIHUA\TEST:UID=sa; 
PWD-" 
conn.Open strConn 
strSQL = "SELECT * FROM Books" 
strSQL = strSQL & " WHERE Press LIKE '?o" & Trim(strPress) & "96'" 
Set rs = Server.CreateObject(" ADODB.Recordset") 
rs.Open strSQL.conn 
With Response 
ifrs.EOF then 
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-Write "没有 查询 到 相关 的 记录 ! " 
else 
.Write "<TABLE BORDER-1 CELLSPACE-0 CELLPADDING=S>"& 
"<TR HEIGHT=12><TD WIDTH=70><B> 图 书 编号 </B></TD>" &_ 
"<TD WIDTH=300><B> 书 名 </B></TD>" &_ 
"<TD WIDTH=150><B> 作者 </B></TD>" &_ 
"<TD WIDTH=40><B> 价格 </B></TD></TR>" 
endif 
do Until rs.EOF 
-Write "TR HEIGHT=12><TD WIDTH=70>" & rs("BookID") & "</TD>" &_ 
"<TD WIDTH=300>" & rs("BookName") & "</TD>" &_ 
"<TD WIDTH=150>" & rs("Writer" & "</TD>" &_ 
"<TD WIDTH=40>" & rs("Price") & "</TD></TR>" 
rs.MoveNext 
loop 
.Write "</TABLE>" 
End With 
rs.Close 
conn.Close 
end if 
end sub. 
</SCRIPT> 
<BODY> 
<Center><H2> 按 出 版 社 名 称 查 询 </H2><HR> 
<FORM NAME="thisForm" METHOD=POST 
ACTION="<%=Request.ServerVariables("Script_Name")%>" > 
<P> 请 输入 出 版 社 名 称 :<INPUT TYPE="text" NAME="PressName" SIZE=20> 
<INPUT TYPE-"submit" NAME-"btnSubmit" value=" 提 交 "> 
<INPUT TYPE-"reset" NAME-"btnReset" value=" 重 置 "></P> 
</FORM> 
«Hr» 
<% 
call rs Display() 
%> 
</Center></BODY></HTML> 


(2) 启动 下 浏览 器 后 ， 在 地 址 栏 中 输入 http:Wlocalhost/ 出 版 社 查询 .asp 并 按 Enter 键 ， 
效果 如 图 10-2 所 示 。 

(3) 在 图 10-2 所 示 网 页 中 的 文本 框 内 输入 “清华 大 学 出 版 社 ” 后 ， 单 击 “ 提 交 ” 按 钮 ， 
网 页 效果 如 图 10-3 所 示 。 
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注意 : 
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按 出 版 社 名 称 查询 


£z) E 


GuocecRENIFERTERAD —— [EX] wem] 


FARE 名 


查询 页 面 效果 图 10-3 ”网 页 查询 效果 


用 户 操作 本 章 实例 的 过 程 中 可 以 参考 本 书 第 9 章 所 介绍 的 内 容 ， 根 据 自 己 的 实际 情况 
设置 程序 代码 中 的 数据 库 连 接 部 分 。 


2. Recordset 对 象 的 方法 
Recordset 对 象 的 方法 及 其 相关 说 明 如 表 10-2 所 示 。 


表 10-2 Recordset 对 象 的 方法 


5 i wi m 
AddNew 增加 一 条 记录 
CancelBatch 个 批 处 理 更 新 
CancelUpdate 在 更 新 前 取消 对 当前 的 所 有 更 改 
Clone 建立 记录 集 的 一 个 副本 
Delete 删除 一 条 或 多 条 记录 
GetRows 从 记录 集中 得 到 多 条 记录 并 存 入 数组 中 
Move 将 记录 指针 移 到 指定 的 位 置 
MoveFirst 将 记录 指针 移 到 第 一 条 记录 处 
MoveLast 将 记录 指针 移 到 最 后 一 条 记录 处 
MoveNext 将 记录 指针 移 到 下 一 条 记录 处 
MovePrevious 将 记录 指针 移 到 前 一 条 记录 处 
NextRecordSet 从 能 产生 多 个 结果 的 命令 中 返回 下 一 个 记录 集 
Open 打开 记录 集 
Requery 重新 执行 查询 来 刷新 记录 集 
Resync 刷新 服务 器 内 的 同步 数据 
Save 将 记录 集 保存 到 一 个 文件 中 
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EE) 
方 法 说 有明 
Sippaits |. 判断 记录 集 是 否 支 持 指定 的 功能 
Update | ”将 修改 结果 保存 到 数据 库 中 


UpdateBatch 将 缓冲 区 内 批量 修改 结果 保存 到 数据 库 中 


10.1.2. Recordset 对 象 的 工作 流程 


在 使 用 Recordset 对 象 前 同样 需要 使 用 Connection 对 象 建立 数据 库 的 连接 ， 其 步骤 如 下 : 
(1) 创建 Connection 对 象 ,， 打开 数据 源 。 创 建 一 个 Connection 对 象 ， 并 保存 在 OBJConn 
变量 中 ， 然 后 打开 数据 源 ， 程 序 代 码 如 下 : 


Set OBJConn = Server.CreateObject(" ADODB.Connection") 
OBJConnOpenstDSN ' 打开 数据 源 


(2) 创建 Recordset 对 象 。 在 取得 与 数据 库 的 连接 后 ， 即 可 创建 Recordset 对 象 ， 其 程 
序 代码 如 下 : 
Set Rs = OBJConn.Execute( SQLstr ) 


(3) 打开 Recordset 对 象 取得 数据 。 在 Recordset 对 象 创建 完成 后 ， 即 可 打开 Recordset 
对 象 的 内 容 。 此 Recordset 对 象 的 内 容 可 以 是 表 、SQL 查询 语句 ， 如 果 是 表 ， 其 命令 如 下 
所 示 : 

Rs.Open "产品 基本 信息 ". OBJConn, adOpenStatic, adLockReadOnly, adCmdTable 

或 是 : 

Set Rs = OBJConn.Exceute(CommandText, RecordsAffected, Options) 

上 述 程序 代码 使 用 Recordset 对 象 Rs 的 Open 方法 打开 “产品 基本 信息 ” 表 ， 第 二 个 
参数 为 Connection 对 象 OBJConn， 其 后 三 个 参数 为 定义 在 文件 adovbs.inc 中 的 常数 ， 用 来 
定义 Recordset 对 象 的 存 取 方式 。 

(4) AFE Recordset 对 象 的 记录 。 在 打开 Recordset 对 象 的 记录 集合 后 ， 即 可 开始 使 用 
Recordset 对 象 的 属性 及 方法 进行 表 的 操作 或 取得 当前 的 状态 。 例 如 取得 Recordset 对 象 的 
状态 属性 State， 代 码 如 下 : 


IfRs.State = 1 Then 

Response.Write("<b>Rs 对 象 目前 处 于 打开 的 状态 </b><br>") 
Else 

Response.Write("<b>Rs 对 象 目前 处 于 关闭 的 状态 </b><br>") 
End If 
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上 述 程序 代码 利用 IE... Then...Else 语句 的 方式 检查 状态 属性 State， 查 看 当前 Recordset 
对 象 的 打开 状态 。 如 果 返 回 值 为 1， 代 表 状 态 已 打开 ; 返回 值 为 0， 则 代表 状态 已 关闭 。 
(5) 关闭 Recordset 对 象 。 关 闭 Recordset 对 象 的 代码 如 下 : 


Rs.Close 
Set Rs = Nothing 


在 执行 上 述 程序 代码 后 ， 将 会 关闭 Recordset 对 象 ， 并 且 由 Set Rs = Nothing 释放 
Recordset 对 象 。 
(6) 关闭 与 数据 库 的 连接 。 要 关闭 数据 库 连 接 ， 可 使 用 Connection 对 象 的 Close 方法 ， 
代码 如 下 : 
OBJCConn.Close 
set OBJConn = Nothing 


10.2 ”应 用 Recordset 对 象 


Recordset 对 象 可 以 根据 查询 条 件 , 检索 并 显示 一 组 数据 库 记 录 。Recordset 对 象 保持 查 
询 返 回 的 记录 位 置 ， 允 许 一 次 一 项 逐步 扫描 结果 ， 根 据 Recordset 对 象 的 指针 类 型 属性 设 
置 ， 可 以 滚动 显示 和 更 新 记录 。 指 针 可 以 在 一 组 记录 中 定位 到 特定 的 项 ， 还 用 于 检索 和 检 
查 记录 ， 然 后 在 这 些 记录 的 基础 上 执行 操作 。 


10.2.1 游标 类 型 


游标 类 型 (CursorType) 代 表 不 同 的 数据 获取 方法 。 打 开 记 录 集 时 ， 可 在 Open 方法 中 指 
定 Recordset 对 象 所 用 的 游标 类 型 , 或 在 调用 Open 方法 前 用 CursorType 属性 来 设置 游标 类 
型 。 记 录 集 打开 后 ，CursorType 属性 是 只 读 的 ， 可 以 用 该 属性 来 返回 游标 类 型 。 
游标 类 型 的 取 值 与 相关 说 明 如 表 10-3 所 示 。 


表 10-3_ 游标 类 型 (CursorType 

说 m 
只 能 向 前 浏览 记录 。 对 简单 的 浏览 可 提高 性 能 ， 但 很 多 属 
性 和 方法 (如 : BookMark、RecordCount、AbsolutePage、 
AbsolutePosition 等 ) 不 能 使 用 
其 他 用 户 对 记录 所 做 的 修改 将 反映 到 记录 集中 ， 但 其 他 用 
户 增加 或 删除 的 记录 不 会 反映 到 记录 集中 。 键 集 游标 支持 
BookMark 属性 ， 支 持 全 功能 浏览 ， 可 以 使 用 RecordCount、 
AbsolutePage 和 AbsolutePosition 等 属性 


类 型 常 量 名 


仅 向 前 AdOpenForwardOnly 


键 集 adOpenKeyset 
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E) 

类 型 常 量 名 说 m" 

动态 游标 功能 最 强 , 但 消耗 资源 也 最 多 。 使 用 动态 游标 时 ， 
动态 adOpenDynamic 其 他 用 户 对 记录 所 做 的 增加 、 删 除 或 修改 的 记录 都 会 反映 

到 记录 集中 。 动 态 游标 支持 全 功能 浏览 

静态 游标 只 是 数据 的 一 个 快照 ， 其 他 用 户 对 记录 所 做 的 增 
静态 adOpenStatic 加 、 删 除 或 修改 的 记录 都 无 法 反映 到 记录 集中。 静态 游标 

支持 向 前 或 向 后 移动 


- 旦 打开 RecordSet 对 象 ， 就 不 能 改变 CursorType 属性 。 但 是 关闭 Recordset( 采 用 关 
闭 方式 ) 对 象 后 可 以 改变 CursorType 属性 ， 然 后 重新 打开 RecordSet 对 象 ， 那么 就 可 以 有 效 
地 改变 它 的 类 型 。 


注意 : 
用 户 可 依据 需求 ， 指 定 CursorType 为 上 述 指针 中 的 任何 一 种 ， 如 省 略 则 取 其 默认 值 
adOpenForwardOnly。 这 是 功能 最 少 的 记录 集 ， 耗 费 的 资源 也 最 少 。 


以 上 几 个 游标 类 型 将 直接 影响 到 Recordset 对 象 所 有 的 属性 和 方法 ， 当 显示 一 个 表 时 ， 
不 同 的 指针 类 型 将 会 影响 到 这 个 表 的 属性 和 方法 ， 如 表 10-4 所 示 。 


表 10-4 ”游标 类 型 对 Recordset 属性 的 影响 


Recordset 属性 _| adOpenForwardOnl adOpenDynamic | adOpenStatic 
AbsolutePage 不 支持 可 读 写 可 读 写 
AbsolutePosition 不 支持 可 读 写 
BOF 只 读 只 读 只 读 
CursorType 可 读 写 读 写 可 读 写 
EOF 只 读 读 只 读 
Filter 可 可 读 写 
LockType 可 读 写 可 读 写 
PageCount 不 支持 只 读 上 
PageSize 可 读 写 可 读 写 可 读 写 
RecordCount 不 支持 不 支持 只 读 只 读 
AddNew 支持 支持 支持 支持 
CancelBatch 支持 支持 支持 支持 
CancelUpdate 支持 支持 支持 支持 
Close 支持 支持 支持 支持 
Delete 支持 支持 支持 支持 
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GR) 
Recordset Æt | adOpenForwardOnly | adOpenKeyset | adOpenDynamic | adOpenStatic 
Move 不 支持 支持 支持 支持 
MoveFirst 支持 支持 支持 支持 
MoveLast 不 支持 支持 支持 支持 
MoveNext 支持 支持 支持 支持 
MovePrevious 不 支持 支持 支持 支持 
open 支持 支持 支持 
Update 支持 支持 支持 支持 
UpdateBatch 支持 支持 支持 


【练习 10-2】 创 建 一 个 能 进行 数据 搜索 和 操作 的 页 面 ， 能 根据 图 书 的 名 称 在 数据 库 中 
查询 符合 条 件 的 图 书 ， 还 可 以 链接 到 相应 的 页 面 对 该 记录 进行 编辑 和 删除 操作 ， 程 序 运 行 
效果 如 图 10-4 所 示 ( 在 操作 本 实例 前 ， 用 户 应 结合 本 书 第 9 章 所 介绍 的 内 容 创建 搜索 页 面 
的 数据 库 并 输入 数据 )。 

(1) 创建 一 个 名 为 “ 超 链 查询 .asp” 的 网 页 ， 其 代码 如 下 所 示 : 


<%@ Language=VBScript 96» 
<% Response.Buffer = True %> 
<HTML> 
<TITLE> 图 书 查询 </TITLE> 
<HEAD> 
«SCRIPT Language="VBScript" RUNAT="Server"> 
Sub rs_Display() 
dim strConn.strSQL.sttBookName 
strBookName = Request.Form("BookName") 
Set conn-Server.CreateObject("X ADODB.Connection") 
strConn-"Driver- (SQL Server) :Database-booknet:&- 
Server-ZHANGSHIHUA'TEST:UID-sa:PWD-:" 
conn.Open strConn 
strSQL = "SELECT * FROM Books" 
strSQL = strSQL & " WHERE BookName LIKE '%" & Trim(strBookName) & "96" 
strSQL = strSQL & " ORDER BY BookName" 
Set rs = Server.CreateObject(" ADODB.Recordset") 
rs.Open strSQL,conn 
With Response 
ifrs.EOF then 
Write "没有 查询 到 相关 的 记录 ! " 


else 
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-Write "<TABLE BORDER-1 CELLSPACE-0 CELLPADDING-5»" & . 
"<TR HEIGHT=12><TD WIDTH=20><B> BookID </B></TD>"& 
"<TD WIDTH=270><B> 书 名 </B></TD>" &_ 
"<TD WIDTH=200><B> 作者 </B></TD>" &_ 
"<TD WIDTH=40><B> 价格 </B></TD>" &_ 
"<TD WIDTH=40><B> 修改 </B></TD>" &_ 
"<TD WIDTH=40><B> 删除 </B></TD></TR>" 
endif 
do Until rs.EOF 
.Write "<TR HEIGHT=12><TD WIDTH=20>" & rs("BookID") & "</TD>" &_ 
"<TD WIDTH=270>" & rs("BookName") & "</TD>" &_ 
"<TD WIDTH=200>" & rs("Writer") & "</TD>" &_ 
"<TD WIDTH=40>" & rs("Price") & "</TD>" &_ 
"<TD WIDTH=40><A HREF=" & chr(34) & "10-5- 编 辑 页 面 .asp?BookID=" & - 
Ts("BookID") & "" & chr(34) & ">" & "编辑 " & "</A></TD>" &_ 
"<TD WIDTH=40><A HREF=" & chr(34) & "10-6- 删 除 .asp?BookID=" &_ 
Is("BookID") & "" & chr(34) & ">" & "删除 " & "</A></TD>" &_ 
"</TR>" 
rs.MoveNext 
loop 
.Write "</TABLE>" 
End With 
rs.Close 
conn.Close 
end sub 
</SCRIPT> 
<BODY> 
<Center><H4> 带 超 链 接 的 图 书 查询 页 面 </H4> 
<Hr> 
<FORM NAME="thisForm" METHOD=POST 
ACTION="<%=Request.ServerVariables("Script_ Name")%>" > 
<P> 请 输入 书 名 :<INPUT TYPE-"text" NAME-"BookName" SIZE=20> 
<INPUT TYPE="submit" NAME-"btnSubmit" value=" fi 找 "> 
<INPUT TYPE-"reset" NAME="btnReset" value=" 重 置 "> 
<INPUT TYPE-"button" NAME="btnInsert" value=" 插 入 "&- 
onclick="location.hre 全 "10-7- 插 入 页 面 .htm"> 


</P> 
</FORM> 
<% 
call rs Display() 
9o 
<HR> 
</Center></BODY></HTML> 
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(2) 运行 “ 超 链 查询 .asp” 的 网 页 页 面 后 ， 用 户 不 仅 能 根据 图 书 的 名 称 在 数据 库 中 搜索 符 
合 条 件 的 图 书 ， 还 可 以 链接 到 相应 的 页 面 对 页 面 记录 进行 编辑 和 删除 操作 ， 如 图 10-4 所 示 。 
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图 10-4 图 书 查询 页 面 


10.2.2 ”锁定 类 型 


锁定 类 型 (LockType) 是 针对 数据 库 操 作 中 并 发 事件 的 发 生 而 提出 的 系统 安全 控制 方 
式 。 锁 定 类 型 不 仅 影响 Recordset 对 象 的 并 发 事件 的 控制 处 理 方式 ， 而 且 决 定 了 记录 集 是 
否 能 更 新 以 及 记录 集 的 更 新 是 否 能 批量 地 进行 。 

打开 记录 集 时 ， 可 以 在 Open 方法 中 指定 锁定 类 型 ， 或 者 在 调用 Open 方法 前 用 
LockType 属性 来 设置 锁定 类 型 。 锁 定 类 型 的 取 值 与 相关 说 明 如 表 10-5 所 示 。 

表 10-5 锁定 类 型 (LockType) 


类 型 常 量 名 说 了 明 
"un 以 只 读 方式 打开 记录 集 时 ,不 能 改变 任何 数据 ， 只 读 方式 
A OX adLockReadOnly 
是 默认 的 锁定 方法 
保守 式 adLockPessimistic 当 编辑 时 立即 锁定 记录 ， 这 是 最 安全 的 锁定 方法 


数据 提供 者 只 有 在 调用 Update 方法 时 才 锁 定 记 录 ， 而 在 
此 之 前 其 他 操作 者 仍 可 对 当前 记录 进行 增加 、 删除 或 修改 
等 操作 

当 编 辑 记录 时 记录 不 会 被 锁定 , 而 增加 、 删 除 或 修改 记录 
是 在 批 处 理 方式 下 完成 的 


开放 式 adLockOptimistic 


adLockBatchOptimistic 


如 果 数 据 源 没有 返回 记录 ， 那 么 提供 者 将 BOF 和 EOF 属性 同时 设置 为 True， 并 且 不 
定义 当前 记录 位 置 。 如 果 游 标 类 型 允许， 仍然 可 以 将 新 数据 添加 到 该 空 Recordset 对 象 。 
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注意 : 
锁定 类 型 的 设 定 会 影响 数据 的 修改 程序 ， 若 是 没有 指定 锁定 类 型 则 将 会 返回 一 个 默认 
只 读 的 记录 集 对 象 ， 其 中 的 数据 将 无 法 修改 。 


10.2.3 浏览 记录 


记录 集 对 象 成 功 引用 Open 方法 后 ，SQL 语句 所 取得 的 数据 副本 会 存储 在 记录 集 对 象 

之 中 ， 此 时 的 记录 集 对 象 类 似 一 个 包含 特定 数据 的 原始 数据 表 ， 例 如 以 下 的 程序 片段 : 
ObjRst.Open "select * from Customers ","dsn-test;" 

这 段 程序 代码 返回 的 记录 集 对 象 ObjRst， 实 际 上 就 是 Customers 数据 表 的 内 容 ， 可 以 
通过 移动 记录 集 对 象 的 指针 ， 浏 览 数据 表 中 每 一 条 记录 的 特定 字段 内 容 。 

指针 总 是 指向 记录 集 当 前 的 数据 位 置 ，Recordset 对 象 提供 4 个 重要 的 数据 浏览 方法 : 
MoveFirst, MovePrevious, MoveNext 和 MoveLast， 分 别 让 将 当前 指针 移 到 记录 集 的 首 记 
录 、 前 一 个 记录 、 后 一 个 记录 和 末 记 录 ， 如 图 10-5 所 示 。 


BOF 


数据 集 开 始 位 置 


BookName 
500001 ASP. HET 数据 库 高 级 教程 CC# 篇 ] < 一 一 一 一 一 MoveFirst 
B00002 ASP 网 络 应 用 系统 分 析 

B00003 ”MASP 编程 基础 及 应 用 教程 

B00008 ASF 编程 基础 

B00004 ASP. NET 2.0 大 揭 密 

B00005 ASF 信 息 系 统 设计 与 开发 实例 i 
B00006 ASP & ASP. 了 ET 应 用 编程 150 例 ”所 一 一 一 一 一 MovePrevious 
B00007 asp. netPRO 2002-2003 中 文 精华 专 一 一 一 一 指针 当前 位 置 
B00009 ”网 页 制作 ASP 培 训 教程 AMoveNexd 
B00010 深入 网 络 编程 

B00011 网 络 编程 基础 

B00012 ASP 基 础 教程 [4— — — Mevilan 


EOF 数据 集结 束 位 置 


图 10-5 ”指针 的 移动 


当 指 针 位 于 记录 集 的 结束 位 置 ， 则 函数 EOF 的 返回 值 为 True， 和 否则 为 Flase。 对 于 查 
询 返 回 的 记录 集 对 象 ， 其 默认 的 指针 位 置 为 首 记 录 。 通 过 指定 数据 对 象 的 字段 名 称 ， 可 以 
取得 记录 集 当 前 指针 位 置 所 在 的 这 条 记录 中 的 字段 内 容 。 

记录 集 在 浏览 记录 时 会 受到 其 打开 时 所 指定 的 游标 类 型 的 限制 。 例 如 ， 一 个 设 定 为 
adOpenForwardOnly 的 记录 集 ， 只 能 往 前 移动 ， 因 此 引用 MoveFirst 或 MovePrevious 将 会 
引发 不 允许 操作 的 错误 。 而 adOpenDynamic 则 拥有 最 大 的 自由 度 ， 可 以 随意 引用 任何 一 个 
方法 浏览 记录 集 。 

如 图 10-5 所 示 ， 有 两 个 标示 为 BOF 和 EOF 的 特殊 指针 位 置 ， 分 别 代 表 记 录 集 开始 与 
结束 的 位 置 ， 这 两 个 位 置 只 是 一 个 空 值 。 当 指针 移动 至 首 记 录 时 ， 使 用 MovePrevious 可 以 
达到 BOF 的 位 置 ， 反 之 引用 MoveLast， 可 以 将 指标 移 到 EOF. 

记录 集 对 象 提 供 了 BOF 和 EOF 属性 ， 用 来 判断 当前 指针 是 否 位 于 记录 集 的 开始 或 结 
束 的 位 置 ， 因 此 在 应 用 程序 中 ， 通 常 都 会 通过 查看 记录 和 集 对 象 的 BOF 或 EOF 属性 值 是 否 
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为 True， 来 了 解 指针 是 否 位 于 记录 集 的 开头 或 结束 位 置 ， 代 码 如 下 : 


blnEof = objRst.EOF 


10.2.4 添加 记录 


添加 记录 有 两 种 方法 : 一 种 是 用 SQL INSERT INTO 语句 ， 另 一 种 是 用 Recordset 对 象 
的 AddNew 方法 。 

如 果 希 望 在 数据 库 特定 表 中 添加 一 条 记录 ， 则 必须 使 用 INSERT 语句 ，INSERT 语句 
的 语法 结构 如 下 : 


INSERT INTO 表 名 [( 字 段 名称 1 [, 字段 名 称 2[, .…]])] 
VALUES (数据 1 [, 数据 21[,...]) 


e. 表 名 后 括号 内 的 字段 名 称 的 排列 顺序 与 VALUES 后 括号 内 数据 的 排列 顺序 必须 一 
， 否 则 进行 数据 添加 时 会 失败 。 

e 对 未 设置 的 字段 ， 添 加 数据 时 其 默认 值 为 Null。 

e 对 于 新 添加 的 数据 记录 ， 在 建立 时 就 给 予 其 默认 值 Null。 


【练习 10-3】 打 开 一 个 Recordset 对 象 ， 然 后 用 AddNew 方法 插入 一 条 空 记录 ， 填 充 空 
记录 的 各 个 字段 ， 再 调用 Update 方法 把 记录 写 到 数据 库 中 ， 程 序 运 行 效果 如 图 10-6 所 示 。 
(1) 确定 adovbs.inc 文件 在 应 用 程序 的 当前 目录 中 。 
(2) 建立 显示 添加 记录 内 容 的 “添加 记录 .html” 文 件 。 


<html><head><title> 添 加 一 条 新 记录 </title></head> 
<body> 
<Center><H4> 添 加 一 条 新 记录 </H4></Center> 
<Hr> 
«FORM Method=POST Action=" 添 加 记录 .asp" > 
«table border-"0" width="100%"> 
<tr><td align-"right" width="20%"><B> 书 名 : </B></td> 
<td width="80%"><input type="text" name="BookName" size=50> 
«Font color=Red> ** 必 须 输入 **</Color></td></tr> 
<tr><td align="right"><b> 作 者 : </b></td> 
<td><input type="text" name="Writer" size=30></td></tr> 
<tr><td align="right"><b> 出 版 社 : </b></td> 
<td><input type="text" name-"Press" size=50></td></tr> 
<tr><td align="right"><b> 出 版 日 期 : </b></td> 
<td><input type-"text" name-"PublishDate" size=10></td></tr> 
<tr><td align-"right"»—b»;E (f: </b></td> 
<td><input type-"text" name-"Price" size=10></td></tr> 
<tr><td align="right"><b> 内 容 简介 : </b></td> 
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<td> -TEXTAREA COLS-50 ROWS-4 name="Statement"></TEXTAREA></td></tr> 
<tr><td align="right"><b> 类 别 : </b></td> 
<td><input type="text" name-"category" size=10></td></tr> 
<tr><td align="right"><b> FÆ: </b></td> 
<td><input type="text" name="SubCategory" size=10></td></tr> 
<tr><td align="right"><b> 库 存量 : </b></td> 
<td><input type="text" name="Quantity" size=10></td></tr> 
<tr><td COLSPAN=2 ALIGN=Center> 
<input type="submit" value=" 保 存 "> 
<input type-"reset" value=" 重 置 "> 
<input type="button" value=" 返 [E] " onclick="location.href='index.asp"></td></tr> 
</table> 
</FORM> 
</body></html> 


(3) 建立 处 理 添加 记录 内 容 的 “添加 记录 .asp” 文 件 。 


<%@ Language=VBScript %> 
<!--#include file="adovbs.inc"--> 
<% 
if ISNumeric(Request.Form("Quantity")) and _ 
IsNumeric(Request.Form("Price")) and _ 
IsDate(Request.Form("PublishDate")) then 
strConn-"Driver- (SQL Server] :Database-booknet;&- 
Server-ZHANGSHIHUATEST:;UID-sa:PWD: 
Set rs = Server.CreateObject("ADODB.Recordset") 
rs.CursorType = adOpenKeyset 
rs.LockType = adLockOptimistic 
rs.Open "Books" .strConn.,,adCmdTable 
1s. AddNew ' 添 加 一 条 新 记录 
rs("BookID") = "B" & Zeros(5-len(rs.RecordCount + 1)) & CStr((rs.RecordCount + 1)) 
rs("BookName") = Trim(Request.Form("BookName")) 
rs(" Writer") = Trim(Request.Form("Writer")) 
rs("Press") = Trim(Request.Form("Press")) 
rs("PublishDate") = CDate(Trim(Request.Form("PublishDate"))) 
rs("Statement") = Trim(Request.Form("Statement")) 


rs("Category") = Trim(Request.Form("Category")) 
rs("SubCategory") = Trim(Request.Form("SubCategory")) 
rs("Quantity") = CInt(Trim(Request.Form("Quantity"))) 
rs("Price") = CCur(Trim(Request.Form("Price"))) 
if rs.Supports(adUpdate) then 
rs. Update 

Response.Redirect(" 添 加 记录 .html") 
endif 
rs.Close 
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else 
Response.Write "输入 的 数量 、 价 格 、 出 版 日 期 中 有 错 ， 请 重新 输入 ! " 

end if 
%> 
«SCRIPT Language-" VBScript" RUNAT="Server"> 
Function Zeros(intNum) 

Dim LstrOut 

for I= 1 to intNum 

strOut = strOut & "0" 

next 

Zeros = strOut 
End Function 
</SCRIPT> 


(4) 运行 程序 后 ， 效 果 如 图 10-6 所 示 。 用 户 可 以 在 该 页 面 中 向 数据 库 中 添加 记录 。 


© 


šr-eaee 


图 10-6 添加 新 记录 


10.2.5 更 新 记录 


有 两 种 方法 可 对 记录 进行 更 新 ， 一 种 是 用 SQL UPDATE 语句 修改 记录 ， 另 一 种 是 用 
Recordset 对 象 的 Update 方法 修改 记录 。 
要 更 新 数据 库 中 的 记录 ,游标 类 型 应 设置 成 动态 ,更 新 数据 使 用 UPDATE 语句 ， 其 基 
本 语法 如 下 : 
UPDATE 表 名 
SET 字段 1= 数 据 1. 字段 2= 数 据 2.… 
WHERE 筛选 条 件 
更 新 操作 有 以 下 3 种 情况 。 
e 所 有 记录 全 部 更 新 : 可 以 对 表 中 所 有 的 记录 同时 进行 内 容 的 更 新 。 
e 不 更 新 索引 键 值 而 只 更 新 其 他 字段 的 内 容 : 仅仅 更 新 每 一 条 记录 内 的 非 索引 字段 内 容 。 
e 更 新 索引 键 值 : 必须 连带 地 更 新 其 他 表 中 相关 联 的 记录 内 容 。 
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【练习 10-4] 打开 一 个 记录 集 ， 然 后 更 改 其 数据 ， 再 调用 Update 或 UpdateBatch 方法 
把 所 作 的 更 改写 入 到 数据 库 中 。 程 序 运行 效果 如 图 10-7 所 示 。 
(1) 确定 adovbs.inc 文件 在 应 用 程序 的 当前 目录 中 。 
(2) 建立 显示 和 处 理 修改 记录 内 容 的 “更 新 记录 .asp” 文 件 ， 其 代码 如 下 所 示 : 


<%@ Language=VBScript %> 
<!--#include file="adovbs.inc"--> 
<% Response.Buffer = True %> 
«SCRIPT Language="VBScript" RUNAT="Server"> 
Dim rs 
Dim conn 
Dim strBookID 
sub Get Record() 
strBookID = Request.QueryString("BookID") 
"创建 Connection 对 象 conn 
Set conn-Server.CreateObject(" ADODB.Connection") 
"EH DSN 建立 conn 与 数据 库 的 连接 
strConn-"Driver- (SQL 
Server); Database-booknet;Server-ZHANGSHIHUA'TEST:;UID-sa;PWD-;" 
conn.Open strConn 
strSQL = "SELECT * FROM Books " 
strSQL — strSQL&" WHERE BookID -" & Trim(strBookID) 
Set rs = Server.CreateObject(" ADODB.Recordset") 
rs.Open strSQL,conn 
End sub 
sub Update Record() 
if IsNumeric(Request.Form("Quantity")) and _ 
IsNumeric(Request.Form("Price")) and _ 
IsDate(Request.Form("PublishDate")) then 
Set rs = Server.CreateObject("ADODB.Recordset") 
rs.CursorType = adOpenStatic 
rs.LockType = adLockOptimistic 
strConn="Driver={SQL 
Server};Database=booknet:;Server=ZHANGSHIHUA\TEST:UID=sa;PWD=;" 
strSQL = "SELECT * FROM Books" 
strSQL = strSQL & " WHERE BookID =" & Trim(strBookID) 
rs.Open strSQL.strConn...adCmdText 
ifrs.EOF then 
Response. Write "没有 查询 到 相关 的 记录 ! " 
Exit sub 
end if 
ifrs.Supports(adUpdate) then 
rs("BookName") = Trim(Request.Form("BookName")) 
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rs("Writer") = Trim(Request.Form("Writer")) 
rs("Press") = Trim(Request.Form("Press")) 
rs("PublishDate") — CDate(Trim(Request.Form("PublishDate"))) 
rs(" Statement") = Trim(Request.Form("Statement")) 
rs("Category") = Trim(Request.Form("Category")) 
rs("SubCategory") — Trim(Request.Form("SubCategory")) 
rs("Quantity") = CInt(Trim(Request.Form("Quantity"))) 
rs("Price") = CCur(Trim(Request.Form("Price"))) 
rs. Update 
if conn.Errors.Count > 0 then 
Response. Write "Transacton Error" 
else 
Response.Write "Transacton Ok" 
end if 
Response.Redirect("index.asp") 
else 
Response. Write "没有 能 够 更 新 数据 ! " 
end if 
rs.Close 
else 
Response. Write "输入 的 数量 、 价 格 、 出 版 日 期 中 有 错 ， 请 重新 输入 ! " 
end if 
rs.Close 
conn.Close 
Set rs = Nothing 
Set conn = Nothing 
end sub 
Function Zeros(intNum) 
Dim LstrOut 
for I= 1 to intNum 
strOut = strOut & "0" 
next 
Zeros = strOut 
End Function 
</SCRIPT> 
<html><head><title> 修 改 一 条 现 有 记录 </title></head> 
<body> 
<Center><H4> 修 改 一 条 现 有 记录 </H4></Center> 
<H> 
<% call Get Record() %> 
<% if Request.Form("btnUpdate") — " fk 4£ "then call Update Record() %> 
«FORM action-"-*o-Request.ServerVariables("Script Name")%>" Method-POST- 
«table border-"0" width="100%"> 
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<tr><td align="right" width="20%"><B> 书 名 : </B></td> 
<td width="80%"><input type="text" name="BookName" &- 
size-50 value=<%= rs("BookName")%>> 
<Font color=Red> ** 必 须 输入 **</font></td></tr> 
<tr><td align="right"><b> 作 者 : </b></td> 
<td><input type="text" name="Writer" size=30 value=<%=rs("Writer")%>></td></tr> 
<tr><td align="right"><b> 出 版 社 : </b></td> 
<td><input type="text" name-"Press" size=50 value=<%=rs("Press")%>></td></tr> 
<tr><td align="right"><b> 出 版 日 期 : </b></td> 
<td><input type="text" name="PublishDate" size=10 
value=<%=rs("PublishDate")%>></td></tr> 
<tr><td align="right"><b> 内 容 简介 : </b></td> 
<td><TEXTAREA COLS=50 ROWS=4 
name="Statement"><%=rs("Statement")%></TEXTAREA></td></tr> 
<tr><td align="right"><b> 类 别 : </b></td> 
<td><input type="text" name-"category" size-10 value=<%=rs("Category")%>></td></tr> 
<tr><td align="right"><b> 子 类 : </b></td> 
<td><input type-"text" name-"SubCategory" size=10 
value=<%=rs("SubCategory")%>></td></tr> 
<tr><td align="right"><b> 库 存量 : </b></td> 
<td><input type="text" name-"Quantity" size-10 value=<%=rs("Quantity")%>></td></tr> 
<tr><td align-"right"»-b»5E ffr: </b></td> 
<td><input type="text" name-"Price" size-10 value=<%=rs("Price")%>></td></tr> 
<tr><td COLSPAN=2 ALIGN=Center> 
<input type="submit" name-"btnUpdate" value=" (& f£ "> 
<input type="button" value=" j& |E] " onclick="location.href='index.asp"></td></tr> 


</table> 
</FORM> 
</body></html> 


(3) 运行 index.asp 文件 ， 单 击 某 记 录 后 的 “编辑 ” 超 链接 以 执行 记录 的 编辑 操作 ， 如 
图 10-7 所 示 。 
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10.2.6 ”删除 记录 


有 两 种 方法 可 对 记录 进行 更 新 : 一 种 是 用 SQL DELETE 语句 删除 记录 ， 另 一 种 是 用 
Recordset 对 象 的 Delete 方法 删除 记录 。 
使 用 DELETE 语句 时 在 表 中 删除 一 条 记录 ， 必 须 特别 注意 ， 一 旦 数据 被 删除 ， 将 无 法 恢 
复 。 如 果 没 有 指定 WHERE 子 句 ,将 删除 表 中 的 所 有 记录 。 以 下 是 DELETE 语句 的 语法 结构 : 
DELETE FROM 表 名 WHERE 筛选 条 件 


【练习 10-5】 打 开 一 个 记录 集 ， 然 后 用 Delete 方法 删除 其 中 的 记录 ， 程 序 运 行 效果 如 
图 10-8 所 示 。 
(1) 创建 删除 记录 页 面 的 “删除 记录 .asp” 文 件 ， 其 代码 如 下 所 示 : 


<% 

strBookID = Request.QueryString("BookID") 

Set conn=Server.CreateObject("ADODB.Connection") 

strConn="Driver={SQL 
Server};Database=booknet:Server=ZHANGSHIHUA\TEST:UID=sa;PWD=;" 

conn.Open strConn 

strSQL = "DELETE FROM Books" 

strSQL = strSQL & " WHERE BookID =" & Trim(strBookID) 

conn.Execute strSQL, adCmdText + adExecuteNoRecords 

conn.Close 

Response.Redirect("index.asp") 

%> 


(2) 运行 index.asp 文件 ， 单 击 某 记 录 后 的 “删除 ” 超 链接 以 进入 删除 记录 的 操作 页 面 。 
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图 10-8 删除 记录 


10.2.7 Supports 方法 


Supports 方法 用 来 判断 Recordset 对 象 是 否 支 持 特定 的 功能 ， 其 语法 结构 如 下 : 
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Recordset.Supports(CursorOptions) 
参数 CursorOptions 的 取 值 与 相关 说 明 如 表 10-6 所 示 。 


表 10-6 Supports 方法 参数 CursorOptions 的 取 值 


常 量 名 值 说 — Hi 
adAddNew 16778240 确定 是 否 支 持 AddNew 方法 
adApproxPosition 16384 确定 是 否 可 以 读 写 AbsolutePage 和 AbsolutePosition 属性 
adBookMark 8192 确定 是 否 支 持 BookMark 属性 
adDelete 16779264 确定 是 否 支 持 Delete 方法 
iniedi 256 确定 是 否 可 以 提交 所 有 待 修改 并 释放 所 有 当前 保留 记录 ， 

而 取 回 更 多 的 记录 或 改变 下 一 次 取 回 的 记录 

adMovePrevious 512 确定 是 否 支持 Move、MoveFirst、MovePrevious 方法 
adRecync 131072 确定 是 否 支 持 Recync 方法 
adUpdate 16809984 确定 是 否 支 持 Update 方法 
adUpdateBatch 65536 确定 是 否 支 持 UpdateBatch 方法 


例如 ， 以 下 脚本 用 于 判断 记录 集 是 否 支 持 更 新 、 删 除 或 新 增 记录 ; 
<%lf rst.Supports(adUpdatetadDeletetadAddNew) Then%> 


如 果 记 录 集 支持 的 功能 与 参数 CursorOption 指定 的 一 致 ， 返 回 True， 和 否则 返回 False。 
虽然 Supports 方法 可 以 对 一 个 指定 的 功能 返回 True, 但 数据 提供 者 不 能 保证 在 所 有 环境 下 
这 些 功 能 都 是 可 用 的 。 


10.2.8 Status 属性 


Status. 属性 是 当前 记录 集 的 状态 标志 ， 这 些 标志 在 记录 被 更 改 、 删 除 、 插 入 或 改变 位 
置 时 会 受到 影响 。Status 属性 的 取 值 及 其 相关 说 明 如 表 10-7 所 示 。 


表 10-7 Status 属性 的 取 值 


常 量 名 说 了 明 
adRecOK 记录 更 新 成 功 
adRecNew 当前 记录 是 新 的 ， 并 且 还 没有 更 新 到 数据 库 
adRecModified 当前 记录 被 修改 ， 并 且 还 没有 更 新 到 数据 库 
adRecDeleted 当前 记录 被 删除 
adRecUnmodified 当前 记录 未 被 修改 
adRecInvalid 书签 是 无 效 的 ， 记 录 未 被 更 新 


adRecMutipleChanged 更 改 会 影响 到 多 条 记录 ， 记 录 未 被 更 新 
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( 续 表 ) 
常 量 名 说 明 
adRecPendingChanged 涉及 未 确定 的 插入 ， 记 录 未 被 更 新 
adRecCanceled 操作 被 取消 ， 记 录 未 被 更 新 
adRecCantRelease 记录 被 锁定 ， 无 法 进行 更 新 


记录 处 于 开放 式 锁定 中 ， 无 法 进行 更 新 
adRecIntegrityViolation 用 户 违反 完整 性 规则 ， 无 法 进行 更 新 
adRecMaxChangeExceeded 存在 太 多 的 不 确定 更 改 ， 无 法 进行 更 新 
adRecObjectOpen 16384 与 一 个 打开 的 存储 过 程 冲突 ， 无 法 进行 更 新 
adRecOutOfMemory 内 存 不 够 ， 无 法 进行 更 新 


32768 
adRecPermissionDenied 用 户 没有 足够 权限 ， 无 法 进行 更 新 


adRecSchemaViolation 底层 数据 库 会 被 破坏 ， 记 录 没 有 更 新 


adRecDBDeleted 记录 已 从 数据 源 中 删除 


10.2.9 分 页 显示 


adRecConcurrencyViolation 


Recordset 对 象 提供 了 PageSize. PageCount 和 AbsolutePage 等 属性 ， 用 来 对 记录 集 实 
现 分 页 显示 功能 。 其 中 ，PageCount 属性 确定 记录 集中 包含 多 少 页 的 记录 ，PageSize 属性 
确定 每 页 显示 的 记录 数 ，AbsolutePage 属性 确定 当前 记录 位 于 哪 一 页 上 。 

【练习 10-6】 按 照 记 录 的 先后 顺序 ， 分 页 显示 数据 库 中 表 的 内 容 ， 程 序 运行 效果 如 图 
10-9 所 示 。 

(1) 确定 adovbs.inc 文件 在 应 用 程序 的 当前 目录 中 。 

(2) 建立 分 页 显示 和 处 理 表 中 内 容 的 “分 页 显示 .asp” 文 件 。 


<%@ Language=VBScript %> 

<% Response.Buffer = True %> 

<!--#include file="adovbs.inc"--> 

<% 

Response.Expires = 0 

dim strConn.strsQL 

Dim intCur,intTotal.I 

Dim conn.rs 

Const intPageSize — 5 

if Request.ServerVariables"CONTENT LENGTH") = 0 then 
intCur- 1 

else 
intCur = CInt(Request.Form("CurPage")) 
Select Case Request.Form("Page") 

Case "首页 " 
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intCur = 1 
Case " E.— Ji" 
intCur = intCur - 1 
Case" F — Ji" 
intCur = intCur + 1 
Case "ÆJ" 
intCur = CInt(Request.Form("LastPage")) 
End select 


end if 
Set conn-Server.CreateObject(" ADODB.Connection") 
strConn-"Driver- (SQL 
Server ;Database-booknet:Server-ZHANGSHIHUA 'TEST;UID-sa;PWD-;" 
conn.Open strConn 
strSQL = "SELECT * FROM Books" 
Set rs = Server.CreateObject(" ADODB.Recordset") 
rs.CursorLocation — adUseClient 
rs.CursorType = adOpenStatic 
rs.CacheSize = intPageSize 
rs.Open strSQL.conn 
rs.PageSize = intPageSize 
If Not rs.EOF then 
rs.AbsolutePage — intCur 
end if 
intTotal = rs.PageCount 
%> 
<HTML><BODY> 
<Center><H4> 分 页 显示 数据 表 中 的 内 容 </H4> 
<Hr> 
<B> 共 有 图 书 <%=rs.RecordCount %> 本 共 <%=intTotal%> 页 当前 是 第 <%=intCur%> 页 </B> 
<p> 
<FORM NAME="" METHOD=POST 
ACTION="<%=Request.ServerVariables("SCRIPT NAME")%>"> 
<INPUT TYPE-"hidden" NAME-"CurPage" Value="<%=intCur%>"> 
<INPUT TYPE="hidden" NAME="LastPage" Value="<%=intTotal%>"> 
<INPUT TYPE="Submit" NAME-"Page" Value=" 首 页 "> 
<% if intCur > 1 then %> 
<INPUT TYPE="Submit" NAME="Page" Value=" 上 一 页 "> 
<% end if %> 
<% if intCur © intTotal then %> 
<INPUT TYPE-"Submit" NAME-"Page" Value=" 下 一 页 "> 
<% end if %> 
<INPUT TYPE-"Submit" NAME-"Page" Value=" 尾 页 "> 
</FORM> 
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</p> 
<% 
With Response 
if rs.EOF then 
-Write "there are no record" 
else 
.Write "<TABLE BORDER-1 CELLSPACE-0 CELLPADDING=5>" &_ 
"<TR HEIGHT=12><TH WIDTH=40> 序号 </TH>" &_ 
"<TH WIDTH=300> 书 名 </TH>" &_ 
"<TH WIDTH=200> 作者 </TH>" &_ 
"<TH WIDTH=40> 价格 </TH></TR>" 
end if 
I=0 
do While not rs.EOF and I < rs.PageSize 
.Write "<TR HEIGHT=12><TD WIDTH=40>" & rs.AbsolutePosition & "</TD>" &_ 
"<TD WIDTH-300»" & rs("BookName") & "</TD>" &_ 
"<TD WIDTH-200-" & rs("Writer") & "</TD>" &_ 
"<TD WIDTH-40-" & rs("Price") & "</TD></TR>" 
rs.MoveNext 
I=I+1 
loop 
.Write "</TABLE>" 
End With 


rs.Close 

conn.Close 

%> 

<HR> 

</Center> 
</BODY></HTML> 


(3) 网 页 运行 后 效果 如 图 10-9 所 示 。 
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10.3 认识 Fields 集合 与 Field 对 象 


每 个 Recordset 对 象 都 包含 一 个 Fields 集合 , 该 集合 用 来 处 理 记 录 集 中 的 字段 。 记 录 集 
中 返回 的 每 个 字段 在 Fields 集合 中 都 有 一 个 对 应 的 Field 对 象 。 通 过 Field 对 象 ， 可 访问 字 
段 名 、 字 段 类 型 、 字 段 值 等 信息 。 


10.3.1 Fields 集合 简介 


Fields 集合 只 有 一 个 Count 属性 和 一 个 Item 方法 。Count 属性 返回 记录 集中 字段 (Fields 
对 象 ) 的 个 数 ，Item 方法 用 于 建立 某 一 个 Field 对 象 。 


1. Fields 集合 的 属性 
Fields 集合 只 有 一 个 Count 属性 ， 该 属性 返回 记录 集中 字段 (Fields 对 象 ) 的 个 数 ， 其 使 
用 方法 为 : 
Var-Recordset X} 5 Fields.Count 
Var 的 值 为 字段 的 个 数 。 如 下 例 将 使 用 脚本 列 出 当前 记录 中 每 个 字段 的 值 。 


For I-0 To rst.FieldsCount-1 
Response.Write rst(I)&"-Br»" 
Next 


2. Fields 集合 的 方法 
Fields 集合 只 有 一 个 Item 方法 ， 该 方法 用 于 建立 某 一 个 Field 对 象 ， 其 使 用 方法 为 : 
Set Field 对 象 =Recordset X 5$ Fields. Item( 字 段 名 或 字段 索引 值 ) 


其 中 ， 字 段 索 引 值 是 根据 记录 集中 的 先后 顺序 排序 ， 从 0~FieldsCount - 1。 如 下 例 将 
通过 名 字 或 序号 返回 相关 的 字段 的 值 : 


rs.Fields.Item (2) 
rs.Fields.Item ("Writer") 


Item 方法 是 Fields 集合 的 默认 方法 , 而 Fields 集合 是 Recordset 对 象 的 默认 集合 ,因此 ， 
Item 和 Fields 可 省 略 ， 如 上 例 可 简化 为 : 


rs (2) 
rs ("Writer") 


“214。 


ASP 动态 网 站 开发 教程 (第 三 版 ) 


10.3.2 Field 对象 简 介 


下 面 将 简单 介绍 Field 对 象 的 属性 和 方法 。 
1. Field 对 象 的 属性 


Field 对 象 的 属性 及 其 说 明 如 表 10-8 所 示 。 


表 10-8 Field 对象 的 属性 


m 性 说 m" 
ActualSize 返回 字段 的 实际 长 度 
返回 字段 的 特征 ， 可 取 下 列 值 之 一 或 组 合 。 
e 2 或 adFldMayDefer: 只 有 在 明确 指明 要 取 这 个 字段 时 ， 该 字段 的 值 才 从 
数据 源 返回 
e 4 或 adFldUpdatable: 字段 可 更 新 
e 8 或 adFldUnknownUpdatable: 无 法 确定 字段 是 否 可 更 新 
e 16 或 adFldFixed: 字段 包含 固定 长 度 的 数据 
e 32 或 adFldIsNullable: 字段 可 以 接收 空 值 ， 可 用 于 检测 非 空 字段 
mee 。 64 B adFldMayBeNull: TIOLA c BC R 
* 128 或 adFldLong: 字段 类 型 为 长 整 型 
e 256 或 adRowID: 字段 是 一 个 行 标识 符 
* 512 或 adFldRowVersion: 字段 包含 跟踪 更 新 日 期 和 时 间 的 标记 
© 4096 或 adFldCacheDeferred: 数据 源 将 字段 放 入 高 速 缓存 中 
用 法 : ifrs("Writer").Attributes and adFldIsNullable then… 
即 若 字 段 允许 接收 空 值 ， 则 执行 此 段 代 码 
DefinedSize 返回 字段 的 定义 大 小 ， 如 rs("Writer").DefinedSize 
Name 返回 数据 库 中 字段 的 名 字 
NumerucScale 说 明 字段 的 小 数 部 分 需要 多 少 个 数字 位 
Precision 说 明 字段 的 值 需要 多 少 个 数字 位 
OriginalValue 返回 字段 修改 前 的 值 
UnderlyingValue 从 数据 库 返回 字段 的 当前 值 
Type 字段 的 数据 类 型 
Value 返回 字段 的 值 


2. Field 对 象 的 方法 


Field 对 象 有 AppendChunk 和 GetChunk 两 个 方法 。AppendChunk 方法 用 于 将 大 块 文本 
和 二 进 制 数 据 写 到 字段 中 。 当 系统 内 存 有 限时 ， 可 用 AppendChunk 方法 将 数据 分 块 写 入 ， 
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而 不 用 一 次 将 数据 完全 添加 进去 。 该 方法 的 使 用 方法 是 : 
ObjectAppendChunk Data 


其 中 , Data 是 待 写 入 字段 中 的 数据 。 每 次 后 续 的 AppednChunk 调用 总 是 把 数据 添加 到 
己 有 数据 的 后 面 。 如 果 正 在 添加 数据 到 一 个 字段 中 , 同时 又 去 操作 当前 记录 的 其 他 字段 值 ， 
则 ADO 会 认为 对 这 个 字段 添加 数据 的 操作 已 完成 。 此 时 , 再 对 这 个 字段 调用 AppendChunk 
方法 ，ADO 会 认为 是 一 个 新 的 AppendChunk 调用 ， 并 履 盖 掉 已 有 的 数据 。 
GetChunk 方法 从 字段 中 获取 大 块 文本 或 二 进 制 数据 的 部 分 或 全 部 内 容 。 当 系统 内 存 有 
限时 ， 可 用 GetChunk 方法 将 数据 分 块 读 出 ， 而 不 用 一 次 全 部 读 出 来 。 该 方法 的 使 用 方法 是 : 
Object.GetChunk(Size) 


其 中 ，Size 是 待 获 取 的 字 节 数 或 字符 数 。 如 果 Size 比 余下 的 数据 大 ，GetChunk 方法 
仅 返 回 剩余 的 数据 ， 如 果 字 段 是 空 的 ， 则 返回 Null. 

每 次 后 续 的 GetChunk 方法 调用 总 是 从 前 一 次 调用 结束 的 位 置 开始 。 但 如 果 正 从 一 个 
字段 读 取 数 据 ， 然 后 又 去 操作 当前 记录 的 另 一 个 字段 的 值 ， 则 ADO 会 认为 这 个 字段 的 读 
取 数 据 的 操作 已 完成 。 此 时 ， 再 对 这 个 字段 调用 GetChunk 方法 ，ADO 会 认为 是 一 个 新 的 
GetChunk 调用 ， 即 重新 从 开始 位 置 读 起 。 

当 Field X1 ff Attribute 属性 的 adFldLong 被 置 为 True 时 ,可 在 该 字段 上 使 用 GetChunk 
和 AppendChunk 方法 。 


10.4 认识 Errors 集合 与 Error 对 象 


涉及 ADO 对 象 的 操作 可 能 产生 一 个 或 多 个 错误 ， 这 些 错误 都 和 数据 提供 者 有 关 。 当 错误 
发 生 时 ， 就 会 有 一 个 或 多 个 Error 对 象 被 放置 到 Connection 对 象 的 Errors 集合 中 。 当 另外 一 个 
ADO 操作 产生 错误 时 ， 将 清除 Errors 集合 ， 并 把 新 的 Error 对 象 集 放 到 Errors 集合 内 。 

Errors 集合 有 一 个 Count 属性 , 该 属性 用 来 指出 Errors 集合 目前 所 包含 的 Error 对 象 的 
个 数 。Errors 集合 有 一 个 Item 方法 ， 可 以 调用 Item 方法 从 Errors 集合 中 获得 某 个 具体 的 
Error 对 象 。 Item 方法 是 Errors 集合 的 默认 方法 , 调用 时 可 省 略 不 写 。 此外, 还 可 调用 Clear 
方法 从 Errors 集合 中 清除 所 有 的 Error 对 象 。 

Error 对 象 的 属性 及 其 相关 说 明 如 表 10-9 所 示 。 


表 10-9 Error 对 象 的 属性 


属 性 说 明 
Description 关于 该 项 错误 的 描述 文字 
HelpContext 这 是 一 个 长 整数 ， 对 应 于 产生 错误 对 象 的 相关 帮助 主题 
HelpFile 对 应 于 产生 错误 对 象 的 相关 帮助 文件 


NativeError 数据 提供 者 所 提供 的 针对 错误 的 错误 代码 
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CES 
属 性 说 了 明 
NN | Apo 所 产生 的 错误 代码 
Source | 错误 所 产生 的 对 象 名 称 
SQLState 该 属性 是 一 个 长 度 为 5 个 字 节 的 字符 串 ， 包 含 按 SQL 标准 所 定义 的 错误 


10.5 ”认识 Properties 集合 与 Property 对 象 


Connection、Recordset、Field、Command 对 象 都 有 Properties 集合 。Properties 集合 用 
来 保存 与 这 些 对 象 有 关 的 各 个 Property 对 象 。Property 对 象 表 示 各 个 选项 设置 或 其 他 没有 
被 对 象 的 固有 属性 处 理 的 ADO 对 象 特 征 。 

ADO 对 象 一 般 包含 两 种 类 型 的 属性 :固有 属性 和 动态 属性 .固有 属性 不 是 作为 Property 
对 象 出 现在 Properties 集合 中 。 当 创建 新 的 ADO 对 象 后 , 这 些 固 有 属性 可 立即 使 用 。 例 如， 
可 以 用 Recordset 对 象 的 EOF 和 BOF 属性 来 判断 当前 记录 是 否 已 到 达 边 界 。 

动态 属性 是 由 后 端 数据 提供 者 定义 的 ， 这 些 属 性 被 放 到 Properties 集合 中 。 每 个 特定 
的 ADO 对 象 都 有 一 个 Properties 集合 。 

Properties 集合 有 一 个 Count 属性 , 用 来 指出 Properties 集合 上 有 多 少 个 Property 对 象 。 
可 以 用 Item 方法 从 Properties 集合 中 获得 某 个 Property 对 象 .Item 方法 是 Properties 集合 的 
默认 方法 ， 调 用 时 可 省 略 不 写 。 如 果 要 从 数据 提供 者 中 取得 Properties 集合 和 扩展 的 属性 
EE, a AIH Refresh 方法 。 

Property 对 象 的 属性 及 其 相关 说 明 如 表 10-10 所 示 。 


表 10-10 Property 对 象 的 属性 
说 RB 


对 象 的 值 


属 性 


Attributes 


指定 何 时 和 如 何 设 定 Prope: 
Property 对 象 的 名 称 

指定 当前 Property 对 象 值 的 数据 类 型 
设置 Property 对 象 的 值 


Name Property 


Type Propei 


Value Prope 


10.6 3J 题 


10.6.1 填空 题 


(1) Recordset 中 的 记录 指针 具有 游标 类 型 ， 它 的 默认 值 为 
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Q) 是 针对 数据 库 操 作 中 并 发 事件 的 发 生 而 提出 的 系统 安全 控制 方式 。 
(3) Recordset 对 象 提供 4 个 重要 的 数据 浏览 方法 : MoveFirst、 m 
和 ， 分 别 将 当前 的 指针 移 到 记录 集 的 首 记 录 、 前 一 个 记录 、 后 
一 个 记录 和 末 记 录 ， 
(4) Fields 集合 的 属性 返回 记录 集中 字段 (Fields 对 象 ) 的 个 数 ， 
方法 用 于 建立 某 一 个 Field 对 象 。 


10.6.2 ”选择 题 


(1) Recordset 对 象 在 使 用 前 需要 使 用 对 象 建立 数据 库 的 连接 。 
A. Application B. Connection 
C. Sever OnStart D. Session 

(2) 在 Recordset 对 象 创建 完成 之 后 ， 即 可 打开 对 象 的 内 容 。 
A. Application B. Connection 
C. Recordset D. Session 


10.6.3 ”问答 题 


(1) 在 使 用 INSERT 语句 添加 数据 时 需要 注意 哪些 方面 ? 
(2) Recordset 对 象 使 用 Connection 对 象 与 数据 库 建 立 连 接 的 操作 步骤 是 什么 ? 


10.6.4 {RERE 


(1) 参考 本 章 【 练 习 10-1】 的 操作 创建 一 个 ASP 查询 页 面 。 
D 参考 本 章 【 练 习 10-2】 的 操作 创建 一 个 能 够 在 数据 库 中 添加 记录 的 ASP 页 面 。 


第 11 章 XML 5 ASP 


在 支持 WWW( 万 维 网 ) 的 技术 中 , 可 扩展 标记 XML 被 认为 是 最 重要 的 新 技术 之 一 。 B 
然 它 已 经 对 数据 的 存储 和 处 理 产 生 了 深远 的 影响 ， 但 它 的 优势 在 将 来 的 某 个 时 候 才 会 全 面 
体现 。XML 实际 上 是 一 系列 相关 技术 的 集合 ， 这 些 技术 源 于 万 维 网 联盟 (Word Wide Web 
Consortium,W3C) 对 WWW 技术 的 发 展 规划 。 

通过 本 章 的 理论 学 习 和 练习 ， 用 户 应 了 解 和 掌握 以 下 内 容 : 

T fif XML 5 HTML 的 区 别 

T fi XML 文档 的 结构 

掌握 创建 XML 文档 的 方法 
掌握 使 用 ASP 操作 XML 的 方法 


11.1 认识 XML 


XML(Extensible Markup Language) 用 来 创建 在 Web 页 面 和 应 用 程序 之 间 定 义 和 传输 
的 数据 。 它 是 一 种 描述 数据 和 数据 结构 的 语言 ， 可 以 保存 在 任何 可 以 存储 文本 的 文档 中 。 
XML 具有 自 描述 性 、 内 容 与 显示 相 分 离 、 可 扩展 性 、 独 立 于 平台 等 特点 ,提供 了 一 套 跨 平 
台 、 跨 网 络 、 跨 程序 语言 的 数据 描述 方式 ， 已 经 逐渐 成 为 科学 与 业务 应 用 中 数据 表示 及 应 
用 的 数据 交换 标准 格式 。 


11.1.1 标记 语言 的 发 展 


标记 语言 包括 文本 、 图 片 和 其 他 多 媒体 链接 ， 可 以 链接 到 当前 文档 的 其 他 部 分 ， 或 者 
其 他 文档 和 其 他 对 象 等 。 标记 是 指 编辑 器 在 待 修改 的 文档 上 做 的 标签 。 标 记 由 元 素 、 属 性、 
实体 和 符号 组 成 。 元 素 定 义 了 文档 的 块 ， 属 性 规范 增强 这 些 块 ， 实 体 是 一 个 或 多 个 字符 ， 
通常 在 键盘 上 找 不 到 ; 符号 是 记号 或 者 字符 集 ， 它 们 构成 了 一 个 字母 表 。 文 档 中 没有 标记 
的 每 个 元 素 的 内 容 ， 通 常 是 文本 (包括 图 片 ) 。 
标记 语言 在 发 展 过 程 中 经 过 了 以 下 几 个 阶段 : 
e SGML: 1986 年 标准 通用 语言 (SGML) 成 为 ISO 的 标准 。 因 为 SGML 是 标准 语言 ， 
世界 上 各 类 商业 组 织 用 它 来 发 布 各 类 文档 及 创建 自己 的 标记 语言 。 例 如 , HTML 就 
是 用 SGML 创建 的 最 流行 的 标记 语言 。SGML 文档 包括 了 文本 和 多 媒体 元 素 ， 也 
包括 了 各 类 标题 、 段 落 和 一 些 用 于 格式 化 的 元 素 。 每 一 个 SGML 文档 都 有 一 个 文 
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档 类 型 声明 ， 包 括 文档 类 型 定义 DTD)。DTD 定义 了 文档 内 容 的 规则 。 此 外 ，DTD 


为 一 个 或 多 个 文档 指定 一 种 标记 语言 。 
e HTML: HTML 语言 被 定义 用 来 处 理 Web 上 的 超 媒 


体 功能 。 在 一 个 简单 的 文本 文 


档 中 ，HTML 开发 者 插入 一 个 元 素 ， 将 站 点 链接 到 另 一 个 站 点 ， 或 浏览 器 、 搜 索引 


擎 、 计 算 机 、 网 络 和 描述 文档 。 


e XML: 可 扩展 性 标记 语言 (XML) 是 SGML 的 一 个 子 集 。XML 包含 了 很 多 SGML 
特性 ， 但 是 比 SGML 简单 得 多 。 像 SGML 一 样 ， 用 户 可 以 使 用 XML 来 开发 一 种 
标记 语言 ， 它 的 元 素 和 属性 是 为 专门 行业 和 产业 而 定义 的 。 创 建 这 种 语言 之 后 ,用 
户 就 可 以 像 使 用 HTML 一 样 ， 使 用 XML 来 标记 并 结构 化 文档 。 

目前 ，XML 和 HTML 都 支持 统一 字符 编码 协会 (Unicode Consortium) 制 定 的 通用 字符 


集 , 不 仅 包括 特殊 字符 、 标 点 和 数学 符号 , 还 包括 非 英语 语言 
成 为 了 国际 标准 。 


11.1.2 XML 的 特点 


XML 实际 上 是 Web 上 表示 结构 化 信息 的 一 种 标准 文 


的 字母 和 字母 表 , 这 使 得 XML 


本 格式 ， 没 有 复杂 的 语法 和 包 


罗 万 象 的 数据 定义 。XML 的 特点 可 以 归纳 为 3 点 : 先进 特性 ， 灵 活性 和 自 描述 性 。 
e XML 的 先进 性 : XML 继承 了 SGML 的 许多 特性 ， 首 先是 可 扩展 性 。XML 人 允许 使 
用 者 创建 和 使 用 他 们 自己 的 标记 而 不 是 HTML 的 有 限 词汇 表 。 这 一 点 至 关 重 要 ， 企 
业 可 以 用 XML 为 电子 商务 和 供应 链 集成 等 应 用 定义 自己 的 标记 语言 , 甚至 与 特定 行 


业 一 起 来 定义 该 领域 的 特殊 标记 语言 ， 作 为 该 领域 信 
e XML 的 灵活 性 : HTML 很 难 进一步 发 展 ， 就 是 因为 


息 共 享 与 数据 交换 的 基础 。 
它 是 格式 、 超 文本 和 图 形 用 户 


界面 语义 的 混合 ， 要 同时 发 展 这 些 混合 在 一 起 的 功能 是 很 困难 的 。 而 XML 提供 了 
一 种 结构 化 的 数据 表示 方式 , 使 得 用 户 界 面 分 离 于 结构 化 数据 。 所 以 ，Web 用 户 所 


追求 的 许多 先进 功能 在 XML 环境 下 更 容易 实现 。 


e XML 的 自 描述 性 : XML 文档 通常 包含 一 个 文档 类 型 声明 ， 因 而 XML 文档 是 自 描 


述 的 。 不 仅 用 户 能 读 懂 XML 文档 ， 计 算 机 也 能 处 百 
做 到 了 独立 于 应 用 系统 ， 并 且 数 据 能 够 重用 。XML 
和 数据 的 文档 化 。 


E. XML 表示 数据 的 方式 真正 
文档 被 看 作 是 文档 的 数据 库 化 


另外 ，XML 还 具有 简明 性 。 它 只 有 SGML 约 20% 的 复杂 性 ， 但 却 具 有 SGML 约 8096 
的 功能 。XML 比 完整 的 SGML 简单 得 多 ， 易 学 ， 易 用 并 且 易 实现 。 


11.1.3 XML 5 HTML 的 区 别 


虽然 XML 和 HTML 都 使 用 标记 ， 但 是 他 们 是 不 同 的 。 


其 中 最 主要 的 区 别 是 XML 专 


门 用 来 描述 文本 的 结构 ， 而 不 是 用 于 描述 如 何 显示 文本 。XML 不 像 HTML 一 样 具 备 固定 
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的 标记 ， 例 如 下 面 所 示 的 代码 ， 如果 被 看 作 是 HTML 文档 , 在 浏览 器 中 将 显示 为 如 图 11-1 
所 示 的 效果 。 


<body> 

简单 的 代码 
<hl> 一 级 标题 <hl> 
普通 文本 

<b> 加 粗 文本 </b> 
下 面 是 其 他 文本 
</body> 


但 是 ， 以 上 代码 如 果 被 作为 XML 文档 ， 其 中 的 标记 就 不 具备 任何 含义 其 内 容 仅 是 说 
明 ， 在 浏览 器 中 打开 可 以 查看 到 如 图 11-2 所 示 的 结果 。 


图 11-1 浏览 器 中 显示 的 HTML 文档 图 11-2 ”浏览 器 中 显示 的 XML 文档 


从 图 11-2 中 可 以 看 出 ， 浏 览 器 在 解析 XML 文档 时 ， 并 没有 对 XML 文档 进行 任何 的 
处 理 ， 仅 仅 是 将 其 显示 出 来 而 已 。 


【练习 11-1】 创 建 简单 的 XML 文档 ， 并 在 编写 代码 时 使 用 几 种 不 同 的 标记 。 通 过 在 
浏览 器 中 查看 XML 文档 效果 ， 了 解 XML 中 如 何 使 用 数据 。 

(1) 选择 “开始 ”|“ 所 有 程序 ” |“ 附件”|“ 记 事 本 ”命令 ， 打 开 记事 本 工具 。 

(2) 输入 以 下 代码 (如 图 11-3 所 示 ): 


<?xml version-"1.0" encoding="gb2312" standalone="yes"?> 
<Orders> 

<Order> 

<ID>20060911a</ID> 

<Name> 标 准 实例 </Name> 

<Price>29.8</Price> 

<Quantity>10</Quantity> 

</Order> 


<Order> 
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<ID>20060911b</ID> 
<Name> 应 用 实例 </Name> 
<Price>29.8</Price> 
<Quantity>25</Quantity> 
</Order> 

</orders> 


G) 输入 的 代码 保存 为 XML 文档 后 在 浏览 器 中 打开 ， 效 果 如 图 11-4 所 示 。 

(4) 在 如 图 11-3 所 示 的 程序 代码 中 使 用 了 几 种 不 同 的 标记 。 对 于 初学 者 而 言 ， 可 能 会 
认为 这 些 标记 各 有 其 含义 。 它 们 都 有 一 个 有 意义 的 名 称 ， 该 例 定义 了 订单 的 一 个 列表 ， 单 
个 订单 以 及 一 些 与 订单 有 关 的 值 。 在 浏览 网 页 时 ， 如 果 上 面 的 代码 是 HTML 可 以 把 它 格式 
化 成 一 个 表 来 显示 ， 但 因为 这 里 是 XML，XML 中 的 标记 不 代表 任何 意义 。 


图 11-3. Order.xml 的 代码 图 11-4 XML 的 效果 


(5) 通过 上 面 的 实例 代码 可 以 看 出 ， 浏 览 器 没有 对 代码 进行 任何 处 理 。 因 为 即使 代码 
中 的 标记 对 用 户 来 说 具备 意义 ， 但 它们 对 于 XML 却 没 有 意义 。 下 面 把 图 11-3 所 示 的 代码 
修改 为 如 下 所 示 ( 如 图 11-5 所 示 )， 并 在 浏览 器 中 显示 ， 如 图 11-6 所 示 。 


<?xml version-"1.0" encoding-"gb2312" standalone-"yes"?7 
< 图 书 订 单 > 

< 订单 > 

< 订单 编号 >20060911a</ 订 单 编号 > 
< 图 书 名 称 > 标准 实例 </ 图 书 名 称 > 
< 价格 >29.8</ 价 格 > 

< 数量 >10</ 数 量 > 

</ 订 单 > 

< 订单 > 

< 订单 编号 >20060911b</ 订 单 编号 > 
< 图 书 名 称 > 应 用 实例 </ 图 书 名 称 > 
< 价格 >29.8</ 价 格 > 

< 数量 >25</ 数 量 > 
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</ 订 单 > 
</ 图 书 订单 > 


图 11-5 修改 后 的 代码 图 11-6 ”修改 代码 后 的 网 页 效果 


注意 : 

通过 上 面 实例 的 效果 图 11-4 和 图 11-6 可 以 看 出 ，XML 由 一 系列 能 描述 文档 各 个 部 分 
的 标记 组 成 。 在 图 11-3 所 示 程 序 代码 中 使 用 XML 来 描述 数据 ， 使 用 了 代表 数据 字段 名 的 
标记 名 。 这 就 是 XML 能 作为 一 种 数据 交换 格式 的 真正 含义 。 


11.2 XML 文档 的 结构 


早期 版 本 的 HTML 文档 的 顶端 和 底部 各 需要 一 个 <HTML> 元 素 , 其 中 定义 了 文档 的 两 
个 主要 部 分 的 嵌 套 元 素 <HEAD> 和 <BODY>。XML 文档 也 遵循 类 似 HTML 文档 一 样 的 两 
部 分 格式 ， 即 声明 在 文档 的 顶端 ， 实 体 是 文档 的 主体 


11.2.1 XML 声明 


每 一 个 XML 文档 都 应 该 以 XML 声明 开始 ， 声 明 的 作用 是 指定 所 使 用 的 XML 版 本 ， 
其 完整 的 语法 如 下 所 示 : 
<?xml version = "1.0"?> 
<!DOCTYPE sampledoc [ 


<!ELEMENT greeting(#PCDATA)> 
P 


上 面 例子 是 一 个 内 部 文档 类 型 定义 ， 可 作为 一 个 组 织 完好 的 文档 声明 。 
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DTD 设置 所 有 的 元 素 、 属 性 和 其 他 的 文档 组 件 的 规则 。 例 如 ， 下 面 的 语句 引用 了 一 个 
外 部 DTD: 


<?xml version = "1.0"?> 


<!DOCTYPE sampledoc SYSTEM "sample.dtd"> 

在 XML 声明 中 可 以 使 用 3 个 属性 ， 分 别 是 版 本 ， 独 立 和 编码 。 这 3 个 属性 均 为 可 选 
项 ， 但 应 该 至 少 正确 包含 版 本 属性 ， 来 指明 XML 的 版 本 号 。 

1. 版 本 属性 

下 面 的 语句 为 只 包含 版 本 属性 的 XML 声明 ; 

<?xml version = "1.0"?> 

上 述 的 XML 声明 实际 上 并 不 是 标记 ， 而 是 一 个 处 理 指令 ， 是 将 信息 传递 给 处 理 XML 文档 
的 应 用 程序 的 特殊 语句 。 通 常 处 理 指令 很 容易 识别 ， 都 是 以 “<? ”开始 ， 以 “?> ”结束 。 

2. 编码 属性 

XML 声明 的 编码 属性 指明 了 XML 文档 使 用 的 语言 。 虽 然 英语 是 使 用 在 Web 上 的 主 


要 语言 , 但 并 不 是 唯一 的 语言 。 使 用 XML 声明 编码 属性 ， 为 XML 文档 指定 字符 集 ， 就 应 
该 在 文档 中 使 用 以 下 XML 声明 : 


<?xml version = "1.0" encoding = "utf-8"?> 
3. 独立 属性 


独立 属性 用 来 指定 正确 显示 一 个 文档 时 是 否 需要 文档 类 型 定义 (DTD)。 基 于 SGML( 标 
准 通用 标记 语言 ) 的 语言 使 用 DTD 定义 后 (例如 HIML)， 可 以 在 文档 中 使 用 元 素 和 属性 。 

与 其 他 基于 SGML 的 语言 不 同 ， 要 正确 显示 XML 文档 并 不 要 DTD 定义 ， 因 为 XML 
不 包含 任何 预定 义 元 素 。 而 且 与 XML 文档 有 关 的 标记 是 定义 在 文档 本 身 内 的 ， 而 不 是 定 
义 在 单独 的 DTD 中 ， 所 以 XML 是 自 描述 性 的 不 需要 DTD。 

但 是 , 一 个 XML 文档 也 可 以 使 用 DTD 定义 从 而 获得 更 多 的 特性 , 尤其 是 当 多 重 XML 
文档 共享 相同 的 元 素 时 ， 如 果 XML 文档 需要 DTD， 可 以 为 独立 属性 赋予 值 “ 否 ”。 但 是 ， 
如 果 确 定 XML 文档 不 需要 DTD， 则 可 以 将 独立 属性 赋值 为 “是 ”, 例如 上 面 创建 的 XML 
文档 就 是 对 任何 不 需要 DTD 的 XML 文档 ， 它 的 声明 如 下 : 


<?xml version = "1.0" encoding = "utf-8" standalone="yes"?> 


注意 : 

许多 XML 文档 包含 一 个 文档 类 型 (IDOCTYPE) 声 明 , 或 者 包含 一 个 内 嵌 于 文档 的 文档 
类 型 定义 , 或 者 指定 一 个 外 部 的 DTD, 文档 类 型 声明 由 保留 字 !DOCTYPE 开始 , 声明 了 文 
档 的 类 型 。 
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11.2.2 XML 实例 


XML 文档 实例 包括 XML 文档 余下 的 部 分 , 就 是 除了 声明 以 外 的 所 有 部 分 (注意 , 有 些 
XML 开发 者 实例 包含 了 整个 文档 )。 实 例 包含 了 元 素 和 属性 的 定义 以 及 实例 和 内 容 。 

1. 元 素 和 标记 

元 素 和 标记 不 是 同一 个 概念 。 一 个 元 素 由 一 个 开始 标记 开头 ， 由 一 个 终止 标记 结尾 ， 
在 起 始 标记 和 终止 标记 之 间 就 是 元 素 名 称 、 可 选 属性 和 其 他 内 容 ， 如 下 所 示 : 


<font size ="13px"> 数 据 资源 安全 备份 </font> 


注意 : 

在 HTML 中 ， 有 些 元 素 允 许 忽略 终止 标记 。 但 是 在 XML( 以 及 XHTML) 中 ， 终 止 标记 
是 必需 的 。 因 此 ， 如 果 现在 使 用 HTML 文档 并 且 将 来 打算 转换 为 XML 文档 的 话 ， 为 了 保 
持 与 XML 的 兼容 ， 在 HTML 文档 中 使 用 终止 标记 是 一 个 很 好 的 习惯 。 


2. 空 元 素 
在 XML 中 ， 也 支持 空 元 素 标 记 ， 即 没有 内 容 的 元 素 。 空 元 素 指 的 是 一 个 文档 输出 时 


加 入 的 对 象 ， 如 图 片 和 分 割 线 。 空 元 素 支持 两 类 标记 语法 : 一 类 是 使 用 与 非 空 元 素 相同 的 
语法 ， 另 一 类 则 是 空 元 素 标记 特有 的 语法 ， 例 如 : 


<image /> 或 者 <br /> 
注意 : 


空 元 素 的 第 2 种 语法 中 ， 典 型 的 终止 标记 连 在 一 起 的 儿 杠 出 现在 标记 的 最 后 ， 前 面 是 
一 个 空格 。 空 元 素 语 法 实现 上 包含 一 个 起 始 标记 和 一 个 终止 标记 。 


空 元 素 通常 都 有 属性 。 例 如 在 一 个 文档 处 理 之 后 要 加 入 一 个 图 片 ， 那 么 就 必须 有 一 个 
参照 点 ， 像 图 片 的 来 源 ， 如 下 所 示 : 


<image src-"school.gif' /> 或 者 <image src="school.gif'></image> 
另外 ， 用 户 还 可 以 使 用 一 个 没有 实际 内 容 的 起 始 标记 和 终止 标记 ， 如 下 所 示 : 


<BR> <BR/> 


3. 属性 

属性 允许 用 户 定义 元 素 的 性 质 和 特性 。 例如, 可 以 从 一 个 特定 的 值 开始 一 个 数字 列表 ， 
或 者 为 图 片 添加 一 个 标记 符 ， 这 样 就 可 以 在 文档 中 很 容易 地 找到 它 一 一 用 于 链接 或 指定 一 
个 格式 或 增强 区 域 的 开头 (或 结尾 )。 带 属性 的 元 素 形式 如 下 : 
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«element option1="valuel" option2="value2"></element> 
注意 ， 这 里 的 小 于 号 和 大 于 号 之 间 的 起 始 标记 中 包括 了 所 有 的 属性 ， 如 下 所 示 ; 


«image src-"schoolgif' width="200"  height-"200" border-"1" align="center"> </image> 


11.2.3 ”创建 和 解析 XML 文档 


前 面 所 介绍 的 内 容 都 是 与 XML 文档 结构 相关 的 ,并 没有 创建 或 者 使 用 XML 文档。 下 
面 将 介绍 如 何 创建 并 在 浏览 器 中 解析 XML 文档 的 方法 。 

XML 文档 , 既 可 以 在 例如 记事 本 或 写字 板 之 类 的 文本 编辑 工具 中 创建 , 也 可 以 在 任何 
能 够 创建 简单 文本 文件 的 字 处 理 软 件 或 网 页 编辑 软件 中 建立 。 如 果 用 户 使 用 文本 编辑 器 创 
& XML 文档 , 需要 在 解析 器 中 打开 XML 文档 ， 才 能 查看 网 页 的 最 终 效果 ， 如 果 使 用 一 些 
专用 的 XML 编辑 器 (例如 Microsoft XML Notepad) 创 建 XML 文档 , 即 可 即时 查看 网 页 效果 。 


1. 创建 XML 文档 

下 面 将 通过 实例 介绍 在 记事 本 工具 中 创建 XML 文档 的 方法 。 

【练习 11-2】 通 过 创建 一 个 简单 XML 文档 ， 了 解 创建 XML 文档 的 方法 。 

(1) 选择 “开始 ”|“ 所 有 程序 ” |“ 附件 ”|“ 记 事 本 ”命令 ， 打 开 记 事 本 工具 。 

(2) 在 记事 本 工具 中 输入 一 行 XML 文档 的 声明 语句 ， 并 在 声明 语句 中 指定 XML 文档 
的 版 本 、 编 码 属性 和 独立 属性 ， 如 下 所 示 : 


<?xml version-"1.0" encoding="gb2312" standalone="yes"?> 
(3) 在 记事 本 文档 中 输入 XML 文档 的 实例 ， 如 下 所 示 。 


<Orders> 

<Order> 
<ID>20060911a</ID> 
<Name> 标 准 实例 </Name> 
<Price>29.8</Price> 
<Quantity>10</Quantity> 
<Date>2007-09-03</Date> 
<User>ZHT</User> 
<Address>Nanjing</Address> 
</Order> 

</Orders> 


(4) 完成 代码 的 输入 工作 后 ， 选 择 “ 文 件 ”|“ 保 存 ” 命 令 ， 将 代码 以 文件 名 Order2.xml 
保存 即 可 完成 XML 文档 的 创建 工作 。 
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2. 解析 XML 文档 


在 浏览 器 中 打开 一 个 没有 结束 标记 </html> 的 HTML 文档 时 ， 浏 览 器 会 简单 地 忽略 该 
背 误 并 显示 网 页 的 效果 。 而 XML 文档 则 必须 符合 严格 的 要 求 才能 在 浏览 器 中 显示 (其 中 最 
重要 的 规则 是 所 有 的 标记 必须 全 部 关闭 )。 当 文档 符合 XML 文档 的 格式 正确 时 ， 其 格式 就 
是 正确 的 。 

XML 文档 格式 是 否 正确 ,可 以 使 用 解析 器 程序 进行 检查 。 解析 器 程序 有 非 检验 解析 器 
和 检验 解析 器 两 种 类 型 。 所 谓 非 检验 解析 器 只 简单 地 检验 XML 文档 格式 是 否 正确 。 而 检 
验 解析 器 不 但 检验 XML 文档 格式 是 否 正确 ， 还 检验 XML 文档 是 否 遵循 相关 的 DTD。 


【练习 11-3 】 以 【练习 11-2】 创 建 的 XML 文档 为 基础 ， 通 过 Internet Explorer 浏览 器 
解析 创建 的 XML 文档 。 

(1) Internet Explorer. Netscape 以 及 其 他 浏览 器 具备 作为 非 检验 解析 器 的 能 力 。 如 果 用 
PARA) Internet Explorer 浏览 器 打开 【练习 11-2】 所 示 的 XML 文档 ， 如 果 非 检验 解析 器 发 
现 文档 格式 正确 ， 就 显示 文档 的 XML 标记 和 数据 ， 如 图 11-7 所 示 。 

(2) 如 果 非 检验 解析 器 发 现 XML 文档 不 正确 (例如 将 【练习 11-2】 创 建文 档 中 的 代码 
内 的 <./Orders> 标 记 去 掉 再 运行 )， 浏览 器 在 运行 文档 时 将 解析 出 错误 ， 并 在 页 面 中 指出 错 
误 ， 效 果 如 图 11-8 所 示 。 

o 


图 11-7 正 浏 览 器 显示 格式 正确 的 XML 文档 图 11-8 正 浏 览 器 解析 错误 文档 


11.2.4 ”编写 正确 的 XML 文档 


创建 XML 文档 的 目的 是 为 了 更 好 地 组 织 数据 。 编 写 正确 的 XML 文档 可 以 让 用 户 代 理 
和 Web 应 用 程序 更 容易 读 取 文 档 中 的 数据 。 

1. 文档 必须 具有 根 元 素 

根 元 素 在 一 个 页 面 中 包含 其 他 元 素 。 HTML 文档 中 的 根 元 素 一 般 是 <ZHTML> 和 </HTML>。 
而 XML 文档 则 需要 用 户 自己 定义 根 元 素 ( 例 如 在 本 章 【 练 习 11-2】 中 创建 的 XML 文档 中 ， 
根 元 素 为 <Orders>)。 如 果 在 文档 中 没有 包含 根 元 素 ， 那 么 XML 文档 的 格式 就 不 正确 。 例 
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如 ， 下 面 所 示 的 XML 文档 就 不 符合 文件 必须 具备 根 元 素 的 规则 : 


<?xml version-"1.0" encoding-"gb2312" standalone="yes"?> 
<ID>20060911a</ID> 

<Name> 标 准 实例 </Name> 

<Price>29.8</Price> 

<Quantity>10</Quantity> 

<Date>2007-09-03</Date> 

<User>ZHT</User> 

<Address>Nanjing</Address> 


注意 : 


如 果 XML 文档 没有 根 元 素 ， 在 正 浏 览 器 中 解析 时 就 会 出 现 如 图 11-8 所 示 的 错误 。 


2. 区 分 文档 大 小 写 


5 HTML 标记 不 同 ，XML 标记 区 分 大 小 写 ，HTML 标记 则 不 区 分 大 小 写 。 例 如 ， 在 
HTML 文档 中 下 弧 线 的 标记 是 大 写 还 是 小 写 对 于 网 页 最 终 的 效果 没有 区 别 。 在 浏览 器 中 ， 
下 面 4 种 HTML 语句 都 能 正确 地 显示 。 但是, 在 XML 文档 中 ,如 果 有 一 个 标记 写 为 小 写 ， 
那么 必须 在 结束 标记 中 全 部 使 用 小 写 ， 下 面 代 码 中 混合 大 小 写 两 种 标记 的 后 两 条 语句 将 会 
被 认为 是 完全 不 同 的 标记 ， 在 文档 中 造成 不 正确 的 格式 。 

<u>HTML 下 划 线 标记 -小 写 </u> 
<U>HTML 下 划 线 标记 -大 写 </U> 
<u>HTML 下 划 线 标记 -小 写 </U> 
<U>HTML 下 划 线 标记 -大 写 </u> 


3. 必须 具备 结束 标记 


在 HTML 文档 中 ， 如 果 代 码 没有 正确 组 织 ， 大 多 数 浏览 器 通常 会 忽略 。 例 如 ， 段 落 标 
记 <p> 用 来 标识 作为 单独 一 段 的 一 块 文本 ， 这 块 文本 包含 在 <p> 和 </p> 标 记 中 ， 如 下 所 示 : 


<p>HTML 文档 标记 实例 </p> 


但 是 ， 许 多 时 候 用 户 不 必 遵 循 这 一 原则 ， 只 需要 简单 地 在 文本 块 末 尾 使 用 一 个 <p> 标 
记 来 创建 一 个 段落 即 可 ， 如 下 所 示 : 
HTML 文档 标记 实例 <p> 
以 上 方法 在 HTML 文档 中 可 行 的 原因 之 一 是 ， 浏 览 器 通常 将 HTML 文档 作为 包含 格 
式 化 标记 的 文本 对 待 。 但 是 XML 是 用 来 组 织 数据 ， 而 不 是 用 来 显示 数据 的 。 因 此 ,XML 
文档 由 包含 文本 的 标记 组 成 ， 而 不 是 由 包含 标记 的 文本 组 成 。 
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4. ERRE XML 元 素 
在 HTML 文档 中 ， 如 何 嵌 套 标记 没有 区 别 。 例 如 下 面 的 HTML 语句 是 正确 的 : 


«font size="18"><div align="center"> 
<a href="index.asp"> 首 页 </font></a> 
</div> 


在 上 面 的 代码 中 ,第 3 个 标记 <a> 被 认为 是 最 内 层 的 元 素 。 在 XML 中 ,每 个 最 内 层 元 
素 必须 在 其 他 元 素 结束 之 前 结束 。 但 是 在 前 面 的 代码 语句 中 ， <font> 标 记 在 <a> 标 记 结束 前 
就 结束 了 。 这 些 在 HTML 中 并 没有 区 别 ， 但 是 在 XML 中 必须 写成 如 下 所 示 的 形式 : 


<font size="18"><div align="center"><a href="index.asp"> 首 页 </a></div></font> 


例如 ， 在 下 面 所 示 的 XML 文档 中 包含 了 订单 数据 。 代 码 格式 不 正确 ， 因 为 <Address> 
JUR IE BH fS TE -User- nA. 


<?xml version-"1.0" encoding-"gb2312" standalone-"yes"?^ 
<Order> 

<ID>20060911a</ID> 

<Name> 标 准 实例 </Name> 

<Price>29.8</Price> 

<Quantity>10</Quantity> 

<Date>2007-09-03</Date> 

<User>ZHT<Address> Nanjing</User></Address> 

</Order> 


如 果 要 使 上 面 所 示 的 代码 的 格式 正确 ，<Address> 元 素 必须 在 <User> 元 素 之 前 结束 ， 如 

下 所 示 : 

<?xml version-"1.0" encoding="gb2312" standalone="yes"?> 

<Order> 

<ID>20060911a</ID> 

<Name> 标 准 实例 </Name> 

<Price>29.8</Price> 

<Quantity>10</Quantity> 

<Date>2007-09-03</Date> 

<User>ZHT<Address> Nanjing</Address></User> 

</Order> 


5. 属性 值 必须 加 引号 


f£ HTML 文档 中 , 赋 给 属性 的 值 可 以 包含 在 引号 内 ,也 可 以 不 必 使 用 引号 直接 赋 给 属 
TE. 例如， 常见 的 HTML 中 的 表格 标记 <table> 的 width 属性 。 将 要 创建 表格 的 宽度 赋值 给 
width 属性 。 下 面 的 两 条 代码 显示 了 两 个 <table> 标 记 , 虽然 第 一 个 标记 的 width 属性 值 使 用 
了 引号 ， 而 第 二 个 标记 没有 使 用 ， 但 是 它们 的 运行 效果 是 相同 的 。 
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代码 1: 


«table width-"850" height-"57" border-"0" cellpadding-"0" cellpadding-"0" 
background-"image/00" jpg 


代码 2: 


«table width=850 height=57 border-0 cellpadding-0 cellpadding-0 background-image/00.jpg- 


但 是 , 在 HTML 中 必须 为 赋值 给 属性 的 值 添 加 引号 。 例 如， 如 果 用 户 要 给 【练习 11-21 
创建 XML 订单 文档 中 的 <User> 元 素 添加 一 个 属性 值 Type， 这 个 属性 保存 了 生成 订单 用 户 
的 类 别 ， 如 图 11-9 所 示 。 

打开 XML 文件 后 ， 在 <User> 元 素 中 添加 属性 Type， 如 下 所 示 : 


<?xml version-"1.0" encoding-"gb2312" standalone="yes"?> 
<Orders> 

<Order> 

<ID>20060911a</ID> 

<Name> 标 准 实 例 </Name> 
<Price>29.8</Price> 
<Quantity>10</Quantity> 
<Date>2007-09-03</Date> 

<User Type="Member">ZHT</User> 
<Address>Nanjing</Address>> 
</Order> 

</Orders> 


在 浏览 器 中 解析 上 面 代 码 时 ， 如 果 省 略 了 Type 属性 的 引号 ， 就 会 导致 文档 的 格式 不 
正确 ， 如 图 11-10 所 示 ( 在 解析 时 会 出 现 找 不 到 左 引号 错误 )。 

打开 XML 文件 后 ， 在 <User> 元 素 中 添加 属性 Type， 但 省 略 Type 属性 的 引号 ， 如 下 
所 示 : 


<?xml version-"1.0" encoding-"gb2312" standalone="yes"?> 
<Orders> 

<Order> 

<ID>20060911a</ID> 
<Name> 标 准 实例 </Name> 
<Price>29.8</Price> 
<Quantity>10</Quantity> 
<Date>2007-09-03</Date> 

<User Type=Member>ZHT</User> 
<Address>Nanjing</Address>> 
</Order> 

</Orders> 
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图 11-9 为 属性 添加 引号 后 的 XML 文档 图 11-10 属性 值 没有 引号 导致 的 错误 


6. 空 元 素 必须 关闭 
f£ HTML 中 ,许多 元 素 都 没有 对 应 的 结束 标记 ,例如 <hr> 和 <br> 等 。 一 般 将 这 些 不 需 
要 结束 标记 的 元 素 称 为 空 元 素 。 下 面 为 【练习 11-2】 创 建 的 订单 XML 文档 创建 一 个 带 有 
属性 的 <PayOut> 空 元 素 ， 这 个 属性 保存 了 一 个 逻辑 值 ， 用 于 表示 订单 是 否 支 持 货 到 付款 。 
<PayOut> 空 元 素 的 XML 代码 如 下 所 示 : 
<PayOut Boolean-"True" /> 


完成 【练习 11-2】 创 建 的 XML 文档 的 编辑 后 (如 图 11-11 所 示 )，XML 文档 在 浏览 器 
中 的 显示 效果 如 图 11-12 所 示 。 


图 11-11 编辑 XML 文档 图 11-12 网 页 浏览 效果 


11.3 操作 XML 文档 


本 章 前 面 详细 介绍 了 有 关 XML 相关 的 知识 ， XML 与 HTML 的 区 别 ，XML 的 特点 ， 
XML 文档 的 结构 ， 以 及 如 何 编写 格式 正确 的 XML 文档 等 内 容 。 下 面 将 重点 说 明 ， 在 ASP 
中 从 XML 文档 中 提取 和 处 理 数 据 的 方法 。 
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11.3.1 文档 对 象 模型 


231% 


在 ASP 中 对 XML 文档 进行 操作 时 ， 首 先 要 掌握 ASP 提供 的 XML 对 象 。 使 用 这 些 对 
象 ， 用 户 可 以 方便 地 操作 XML 文档 的 节点 ， 从 而 真正 地 把 XML 实现 为 数据 的 载体 。 

第 一 个 需要 掌握 的 是 XML 的 文档 对 象 模型 ， 文 档 对 象 模 型 (Document Object 
Model,DOM) 是 针对 HTML 和 XML 文档 的 API, 定义 了 文档 的 逻辑 结构 以 及 访问 它们 的 方 
法 。 也 就 是 说 ， 它 定义 了 一 个 标准 的 访问 和 处 理 XML 结构 的 方法 。XML Document 对 象 
是 描述 XML 源 文件 的 顶级 对 象 , 它 的 方法 和 属性 可 以 产生 出 其 他 所 有 的 XML 对 象 .DOM 
对 象 对 XML 的 描述 完全 遵循 XML 本 身 的 层次 结构 ， 所 以 只 要 了 解 XML 的 文档 结构 ， 就 


很 容易 了 解 DOM 对 象 对 XML 的 描述 。 
下 面 通过 一 个 简单 的 XML 文档 ， 学 习 使 用 DOM 的 方法 。 


<?xml version-"1.0" encoding-"gb2312" standalone="yes"?> 
<Orders> 

<Order> 
<ID>200708011a</ID> 
<Name> 标 准 教程 </Name> 
<Price>29.8</price> 
<Quantity>10</Quantity> 
</Order> 

<Order> 
<ID>200708011b</ID> 
<Name> 实 用 教程 </Name> 
<Price>29.8</price> 
<Quantity>25</Quantity> 
</Order> 

</Orders> 


使 用 DOM 的 术语 ，XML 文档 本 质 上 是 分 层 结 构 的 文档 。 也 就 是 说 ， 总 是 有 一 个 顶层 
或 根 元 素 ， 然 后 在 下 面 有 一 些 子 元 素 。 所 以 上 面 的 文档 可 以 用 如 图 11-13 所 示 来 表示 。 


图 11-13 XML 的 DOM 分 层 结构 


如 果 文档 包含 的 子 元 素 很 多 ， 将 会 得 到 一 个 层次 很 深 的 树 状 图 。 使 用 


DOM 的 术语 来 


说 ， 这 些 元 素 也 称 为 节点 (Node)， 一 个 节点 代表 树 状 结构 中 的 一 个 普通 元 素 。 
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为 了 表现 树 状 的 分 层 结 构 ，DOM 中 提供 了 整套 的 对 象 、 方 法 以 及 属性 以 使 用 户 能 处 
理 DOM。 在 这 里 先 讨 论 最 常用 到 的 对 象 和 属性 。 首 先 介绍 对 象 ， 常 用 的 有 以 下 3 种 。 

e Node 对 象 : 在 分 层 结构 中 的 单个 节点 。 

e NodeList 对 象 : 节点 集合 。 

© NameNodeMap 对 象 : 允许 用 名 字 和 索引 号 来 访问 的 节点 集合 。 

除了 以 上 3 个 对 象 以 外 ， 还 有 一 些 用 来 访问 节点 的 属性 ， 如 表 11-1 所 示 。 


表 11-1 节点 属性 及 说 明 
属 性 说 — m 


childNodes 返回 一 个 包含 子 节点 的 NodeList 对 象 
firstChild 返回 当前 节点 的 第 一 个 子 节点 
NodeName 节点 


reviousSiblin, j 是 在 4 构 中 相同 层 上 的 前 一 个 - 


lastChild 返 

ParentNode 返回 当前 节点 的 父 节点 

NodeValue 节点 的 值 

nextSiblin; 返回 下 一 个 兄弟 节点 ， 也 就 是 在 分 层 结构 中 相同 层 上 的 后 一 个 节点 


下 面 将 针对 本 节 前 面 所 示 XML 程序 中 所 用 的 文档 的 节点 结构 进行 分 析 。 

在 该 XML 文档 中 ， 根 节点 ( 根 元 素 )Orders 下 的 子 节点 存放 于 ChildNodes 集合 中 ， 而 
且 由 于 根 节点 Orders 只 有 一 个 子 节点 , 所 以 属性 FirstChild 指向 了 同一 个 节点 Order. 在 这 
种 情况 下 ， 节 点 集合 中 唯一 的 节点 是 ChildNodes(0)。 

节点 Order 有 4 个 子 节点 ,存放 于 ChildNodes 集合 中 , 属性 FirstChild( 也 就 是 ChildNodes(0)) 
指向 节点 ID, 属性 LastChild( 也 就 是 ChildNodes(3)) 指 向 节点 Quantity; 而 属性 PreviousSibling 
和 NextSibling 则 在 同一 层 ， 分 别 指向 节点 集合 中 上 一 个 和 下 一 个 兄弟 节点 。 

例如 ， 假 设 有 一 个 指向 Orders 的 名 称 为 RootNode 的 节点 对 象 ， 则 节点 的 代码 表示 方 
法 如 表 11-2 所 示 。 


表 11-2_ 节点 的 代码 表示 法 


代 码 
RootNode.ChildNode(0/ 


指向 的 节点 
Order 


RootNode.ChildNode(0).FirstChild 


RootNode.ChildNode(0).FirstChild.NextSibling 


RootNode.ChildNode(0).FirstChild.ParentNode 


RootNode.ChildNode(0).FirstChild.NextSibling.ParentNode 
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2. 特殊 DOM 对 象 

XML 具有 丰富 的 扩展 性 能 ， 可 以 满足 文档 的 多 样 性 。 所 以 针对 不 同 的 节点 类 型 ,还 有 
一 些 特殊 的 对 象 。 这 些 对 象 继承 了 Node 对 象 的 大 部 分 方法 和 属性 ， 同 时 也 增强 了 一 些 特 
殊 方法 与 属性 ， 用 于 处 理 那 些 特殊 的 节点 类 型 。 如 表 11-3 所 示 列 出 了 这 些 对 象 。 


表 11-3. DOM 特殊 对 象 及 说 明 


对 象 说 明 
DocumentXML 文档 的 根 对 象 
Element 一 个 XML 对 象 
Attribute 或 Attr 一 个 XML 属性 
EntityReference 一 个 实体 的 引用 
Comment 一 个 XML 注释 元 素 
CharacterData 文档 中 用 于 文本 信息 的 基本 对 象 
Notation 一 个 符号 ， 等 同 于 DTD 中 的 !INOTATION 
Text 元 素 或 属性 节点 的 文本 内 容 
Implementation 应 用 程序 特殊 的 实现 细节 
ProcessingInstruction 一 条 处 理 指令 ， 存 放 于 <??> 段 中 
CDATASection 未 经 过 分 析 的 字符 数据 ， 等 同 于 DTD 中 的 ! CDATA 
DocumentType 与 XML 有 关 的 DTD 或 模式 的 信息 ， 等 同 于 DTD 中 的 DOCTYPE 
DocumentFragment Document 的 副本 ， 用 于 临时 存储 操作 或 文档 的 插入 操作 
Enti 一 个 经 过 分 析 或 未 经 过 分 析 的 实体 ， 等 同 于 DTD 中 的 ! ENTITY 


由 于 这 些 DOM 对 象 的 特殊 性 ， 因 此 一 般 不 会 使 用 到 所 有 这 些 对 象 ， 在 这 里 就 不 再 深 
入 解释 它们 及 其 与 XML 的 关系 。 


11.3.2 RE XML 数据 


掌握 文档 对 象 模型 是 操作 XML 文档 的 必 备 基础 ， 第 11.3.1 节 中 已 经 介绍 了 这 些 知 识 。 
与 使 用 活动 服务 器 组 件 一 样 ， 在 操作 XML 文档 对 象 之 前 必须 先 使 用 Server.CreateOjbect 创 
建 对 象 的 实例 。 在 ASP 中 创建 DOM 对 象 的 基本 语法 如 下 (以 下 两 种 方法 都 可 以 创建 DOM 
对 象 ): 
set ObjXML-Server.Createobject("MSXML.DOMDocument") 
set ObjXML-Createobject("Microsoft.XMLDOM") 
创建 完 这 个 对 象 后 就 可 以 使 用 其 内 部 的 函数 了 , 下 面 将 通过 实例 来 说 明 其 使 用 方法 (要 
使 用 ASP 读 取 XML 文档 中 的 数据 ， 可 以 参考 下 面 介绍 的 方法 )。 
(1) 创建 Microsof:XMLDOM 对 象 ， 设 置 对 象 的 ASYNC 属性 为 True， 这 个 属性 用 来 
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设置 打开 后 的 XML 数据 是 否 与 XML 文件 中 的 数据 同步 ， 也 可 以 理解 为 动态 更 新 的 意思 。 


Set objXML-CreateObject("Microsoft. XMLDOM") 
objXML.ASYNC-False 


(2) 利用 Load 函数 载 入 XML 文档 的 信息 。 例 如 ， 要 读 取 XML 文档 中 Order 元 素 ( 节 
点 ) 中 的 数据 ， 就 可 以 使 用 如 下 所 示 的 方法 。 


set objlst=objXML.GetElementsByTagName("Order") 

(3) 还 可 以 使 用 Length 属性 统计 出 共有 多 少 个 Order 子 节点 : 
intNoOfHeadlines-Objlst.length 

(4) 用 户 已 经 读 取 一 个 XML 文档 的 信息 了 ， 可 以 使 用 下 面 所 示 的 语句 将 结果 输出 。 
Order.xml 文档 中 Order 节点 共有 : <%=intNo0fHeadlines%> 个 


(5) 将 以 上 代码 以 文件 名 ReadxmlData.asp 保存 , 然后 使 用 浏览 器 打开 查看 结果 即 可 显 
示 如 图 11-14 所 示 的 结构 。 


Te 


图 11-14 读 取 并 显示 XML 文档 的 数据 


11.3.3 ”向 XML 输出 数据 


要 操作 XML 文档 , 还 需要 使 用 XMLDOM 对 象 向 XML 文档 写 入 信息 , 下面 就 将 介绍 
向 XML 文档 中 写 入 文件 内 容 的 方法 。 
(1) 要 确定 操作 的 XML 文档 的 位 置 ， 例 如 在 当前 文件 夹 下 的 Order.xml 文件 : 
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Dim XmlDoc, Flag, FileName 
FileName = Server.MapPath("Order.xml") 


Q) 创建 XML DOM 对 象 的 实例 ， 并 载 入 XML 文档 ， 设 置 ASYNC 属性 为 False， 即 
不 同步 更 新 : 
set XmlDoc = Server.CreateObject("Microsoft.XMLDOM") 


XmlDoc.ASYNC - False 
Flag - XmlDoc.Load(FileName) 


(3) 为 了 确保 写 入 XML 文档 的 成 功 ， 用 户 需要 添加 下 面 的 语句 判断 XML 对 象 载 入 
XML 文档 是 否 成 功 ， 成 功 则 执行 后 面 的 语句 : 


IfFlag Then 
(4) 成 功 载 入 后 ， 先 创建 一 个 节点 Order: 


Dim rootNode, newNode 
Set rootNode-XmlDoc.CreateElement("Order") 


(5) 上 面 的 语句 在 XML 文档 中 的 根 元 素 下 创建 了 一 个 节点 <Order>， 由 于 这 是 一 个 空 
字 节点 ， 因 此 还 要 向 这 个 节点 插入 内 容 ， 如 下 所 示 : 


Set newNode-XmlDoc.CreateElement("ID") 
newNode.Text-"20060911b" 
rootNode.AppendChild(newNode) 


(6) 第 一 行 语句 创建 名 为 ID 的 节点 ,然后 使 用 其 Text 属性 赋值 , 接 下 来 执行 AppendChild 
方法 将 节点 和 内 容 插入 到 Order 节点 中 去 。 下 面 使 用 同样 的 方法 ， 插 入 两 个 节点 : 


Set newNode-XmlDoc.CreateElement("Name") 
newNode.Text=" 标 准 教程 
rootNode.AppendChild(newNode) 

Set newNode-XmlDoc.CreateElement("Price") 
newNode.Text-"29.8" 
rootNode.AppendChild(newNode) 


(7) 最 后 ， 将 对 XML 文档 所 做 的 修改 保存 ， 可 以 使 用 XmlDoc.Save( 文 件 名 ) 方 法 : 


XmlDoc.DocumentElement.AppemdChild(RootNode) 
XmlDoc.Save(FileName) 
End If 


(8 与 第 11.3.22 节 一 样 ， 添 加 如 下 的 测试 成 功 语句 : 


写 入 Order.xml 文档 成 功 
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(9) 将 以 上 代码 以 WritexmlData.asp 为 文件 名 进行 保存 ,并 在 浏览 器 中 打开 ,如 图 11-15 
所 示 为 测试 成 功 语句 以 及 写 入 后 的 XML 文档 。 


Xm 


图 11-15 写 入 并 显示 XML 文档 的 数据 


11.4 J 题 

11.4.1 填空 题 

(1) XML 是 基于 的 标记 语言 。 

(2) 一 般 称 包含 在 元 素 开 始 标 记 和 结束 标记 之 间 的 信息 为 o 

(3) 检查 XML 文档 格式 是 否 正确 的 程序 叫做 ， 它 可 以 分 为 
和 检验 两 种 类 型 。 

(4) 是 针对 HTML 和 XML 文档 的 API， 使 用 时 需要 通过 
Server.CreateObject(" "或 者 CreateObject(" 语句 实例 化 对 象 。 


11.4.2 ”选择 题 


(D 在 XML 术语 中 ， 将 一 个 标记 及 其 包含 的 信息 称 为 


A. 元 素 B. 标记 块 
C. 方法 D. 标签 


(2) 关于 XML 的 描述 ， 下 列 正确 的 是 5 
A. XML 只 定义 属性 B. XML 只 定义 方法 
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C. XML 不 定义 任何 元 素 和 属性 D. XML 不 使 用 元 素 或 属性 
11.4.8 ”问答 题 
(1) 简 述 在 标记 语言 的 发 展 过 程 中 经 过 几 代 语言 ? 


(2) 简 述 创建 XML 文档 的 步骤 。 
(3) 编写 XML 文档 需要 注意 哪些 原则 ? 


11.4.4 ”操作 题 


(1) 参考 【练习 11-2】 的 操作 ,创建 一 个 简单 的 XML 文档 ， 了 解 创建 XML 文档 的 
为 法 。 

(2) 以 上 例 创建 的 XML 文档 为 基础 ， 通 过 Internet Explorer 浏览 器 解析 创建 的 XML 
文档 。 
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ASP 程序 在 运行 时 有 可 能 出 现 各 种 错误 ， 这 些 错 误 可 分 为 3 类 : 语法 错误 、 运 行 错误 
和 逻辑 错误 。ASP 程序 调试 的 过 程 就 是 发 现 和 改正 脚本 错误 的 过 程 。 通 过 调试 ， 可 以 找 出 
导致 错误 的 原因 并 找 出 发 生 错误 的 位 置 。 

通过 本 章 的 理论 学 习 和 练习 ， 用 户 应 了 解 和 掌握 以 下 内 容 : 
掌握 调试 ASP 脚本 的 方法 
了 解 ASP 错误 提示 
了 解 自 定义 错误 信息 的 方法 
了 解 事务 


12.1 调试 ASP 程序 脚本 


开发 程序 的 过 程 中 难免 会 发 生 错 误 ， 这 些 错误 有 时 是 在 编写 程序 代码 时 不 小 心 输入 错 
误 ， 有 时 是 因 访 问 者 操作 不 当 而 引起 的 。 无 论 开 发 人 员 如 何 小 心 谨慎 ， 编 写 脚 本 时 总 会 有 
玻 忽 大 意 之 处 ， 这 样 运 行 时 也 就 可 能 出 现 这 样 或 那样 的 错误 ， 而 且 随 着 脚本 变 得 越 来 越 复 
杂 ， 出 错 的 概率 也 将 成 倍增 长 。 因 此 如 何 避 免 错误 ， 找 出 错误 便 成 了 ASP 程序 设计 中 不 可 
缺少 的 一 环 。 通 过 调试 ， 就 可 以 找 出 导致 错误 的 原因 并 找 出 错误 发 生 的 位 置 。 


12.1.1 认识 ASP 脚本 错误 


脚本 错误 大 致 分 为 3 类 ， 即 语法 错误 、 运 行 错误 和 逻辑 错误 。 语 法 错误 是 一 种 经 常 
遇 到 的 错误 ， 程 序 没有 按照 规定 的 语法 书写 就 会 出 现 语法 错误 。 这 种 错误 常 发 生 在 初学 
者 身上 ， 例 如 关键 词 拼写 错误 ， 理 没有 Then 与 之 配对 ， 字 符 串 没有 用 双 引 号 等 ， 都 会 引 
发 语法 错误 。 

程序 在 执行 时 所 发 生 的 错误 即 为 运行 错误 。 例 如 以 0 作为 除数 导致 程序 无 法 继续 执行 ， 
如 下 所 示 : 


<% X=1/0%> 
运行 错误 通常 是 开发 人 员 在 编程 时 不 够 严谨 、 处 理 不 当 而 遗留 下 来 的 潜在 性 错误 。 运 
行 错误 必须 改正 ， 脚 本 才 会 不 中 断 地 执行 。 
逻辑 错误 是 脚本 未 按 预 期 方式 执行 所 产生 的 错误 ， 即 脚本 中 的 代码 本 身 是 合法 的 ， 而 
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且 能 够 执行 ， 但 执行 结果 不 正确 。 例 如 ， 服 务 器 端 脚本 将 对 列表 中 的 值 进行 排序 ， 若 在 脚 
本 中 本 该 用 小 于 号 (<) 的 地 方 错误 地 使 用 了 大 于 号 (>), 则 会 导致 排序 结果 不 正确 。 逻辑 错误 
最 麻烦 ， 也 最 难 发 现 。 


【练习 12-1】 人 参考 上 面 所 介绍 的 内 容 ， 通 过 调试 下 面 的 ASP 脚本 程序 ， 认 识 ASP 脚 
本 在 调试 时 可 能 会 出 现 的 语法 错误 、 运 行 错误 和 逻辑 错误 。 
(1) 创建 一 个 名 为 Test Lasp 的 文件 ， 其 代码 如 下 所 示 : 


<% 
Option Explicit 
Dim intNum,intFact 
%> 
<HEAD><TITLE> 计 算数 的 阶乘 </TITLE></HEAD> 
<BODY> 
<Center><H4> 脚 本 的 调试 </H4></Center> 
<HR> 
«FORM ACTION="<%=Request.ServerVariables("SCRIPT NAME")%>" METHOD="GET"> 
<P> 
计算 一 个 数 的 阶乘 : <P> 
请 输入 0-10 之 间 的 数 : <Input Name="Nums" Size="5"> 
<P> 
<Input Type=Submit Value=" 提 交 "><Input Type=Reset Value=" 重 置 "> 
</Form> 
«Hr» 
<%If Request.ServerVariable("QUERY STRING")-"" Then 
intNum-cInt(Trim(Request.QueryString("Nums"))) 
IfintNum>10 And intNum<0 Then 
Response. Write "输入 的 数据 超出 计算 范围 ， 请 重新 输入 ! n 
Else 
intFact-factorialintNum) ' 调 用 Factorial 函数 来 计算 阶乘 
Response.Write intNum &" 的 阶乘 是 : "&intFact 
End If 
End If%> 
</Body></Html> 
<Script Language=VBScript RunAt=Server> 
Function factorial(num) 
If num=0 OR num-1 Then ' 若 为 0 或 1， 则 其 阶乘 是 1 
factorial=1 
Else 
factorial-num*factorial(num-1) ' 进 行 递归 直至 完成 
End If 
End Function 


</Script> 
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(2) 将 Test l.asp 文件 保存 至 CAInetpub wwwroot IAAP. 

(3) 启动 正 浏 览 器 , 在 地 址 栏 中 输入 http://localhost/Test_1.asp 并 按 Enter 键 打开 网 页 ， 
效果 如 图 12-1 所 示 。 

(4) 在 文本 框 中 输入 0-10 之 间 的 数字 (例如 输入 3 ) ， 然 后 单 击 “提交 ”按钮 ， 将 在 页 
面 下 方 得 到 所 输入 数字 的 阶乘 ， 如 图 12-2 所 示 。 


图 12-1 脚本 调试 页 面 图 12-2 ”计算 数字 的 阶乘 
(5) 在 如 图 12-1 所 示 页 面 的 文本 框 中 输入 0~10 以 外 的 数字 ( 例如 输入 -3， 如 图 12-3 
左 图 所 示 ) ， 然 后 单 击 “ 提 交 ” 按 钮 ， 浏 览 器 将 会 显示 如 图 12-3 右 图 所 示 的 错误 ， 提 示 用 
P ASP 脚本 出 现 错误 并 显示 脚本 错误 类 型 一 一 运行 错误 。 


输入 “-3” 浏览 器 提示 ASP 脚本 运行 错误 
图 12-3 测试 ASP 脚本 的 运行 错误 


(6) 在 如 图 12-1 所 示 页 面 的 文本 框 中 输入 0~10 以 外 的 数字 (例如 输入 12， 如 图 12-4 
左 图 所 示 )， 然 后 单 击 “ 提 交 ” 按 钮 ，ASP 程序 将 正常 运行 ,而 不 会 显示 “输入 的 数据 超出 
计算 范围 ， 请 重新 输入 ! ”提示 ， 这 是 因为 ASP 脚本 出 现 了 逻辑 错误 。 
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输入 12 ASP 脚本 出 现 逻 辑 错误 
图 12-4 测试 ASP 脚本 的 逻辑 错误 


(7) 将 记事 本 中 的 代码 故意 写 错 ， 如 图 12-5 左 图 所 示 。 完 成 后 将 ASP 脚本 保存 并 在 浏览 
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错误 的 ASP 脚本 浏览 器 提示 语法 错误 
图 12-5 测试 ASP 脚本 的 语法 错误 


12.1.2 ”使 用 Microsoft 脚本 调试 器 


IIS 自 带 一 个 Microsoft 脚本 编辑 器 ， 使 用 它 可 查看 和 编辑 HTML 文件 中 的 HTML 标 
还 可 向 文件 中 添加 脚本 并 对 其 进行 调试 。Microsoft 脚本 编辑 器 的 主要 功能 有 : 

e. 逐 行 运行 服务 器 端 脚本 。 

e 在 服务 器 端 脚本 执行 时 ， 打 开 命令 窗口 监视 变量 、 属 性 或 数组 元 素 的 值 。 

e 在 脚本 的 指定 行 设置 断 点 以 暂停 执行 服务 器 端 脚本 。 

e 运行 服务 器 端 脚本 时 跟踪 过 程 /函数 。 

用 Microsoft 脚本 编辑 器 调试 ASP 脚本 之 前 ， 必 须 先 将 Web 服务 器 配置 为 “启用 ASP 
调试 ”。 


记 
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【练习 12-2】 在 Internet 信息 服务 管理 器 中 启用 ASP 调试 工具 , 并 打开 Microsoft 脚本 
编辑 器 。 

(1) 启动 正 浏 览 器 后 ， 选 择 “ 工 具 ”|“Internet 选项 ”命令 (如 图 12-6 所 示 ) ， 打 开 
"Internet 选项 ”对 话 框 。 

(2) 在 “Internet 选项 ”对 话 框 中 选择 “高 级 ”选项 卡 ， 在 “设置 ”选项 区 域 中 取消 选 
择 “ 禁 用 脚本 调试 (Internet Explorer)” 和 “禁用 脚本 调试 (其 他 )” 复 选 框 ( 如 图 12-7 所 示 ) 
后 ， 单 击 “ 确 定 ” 按 钮 。 
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图 12-6 打开 “Internet 选项 ”对 话 框 图 12-7 设置 “高 级 ”选项 卡 


(3) 打开 “Internet 信息 服务 ”控制 台 ， 在 Web 站 点 或 应 用 程序 的 起 始 目录 单 击 息 标 
右键 ,在 弹出 的 快捷 菜单 中 选择 “属性 ”命令 ,打开 “默认 网 站 属性 ”对 话 框 ， 如 图 12-8 
所 示 。 

(4) 选择 “ 主 目录 ”选项 卡 ， 单 击 “配置 ”按钮 ， 打开“ 应 用 程序 配置 ”对 话 框 ， 如 
图 12-9 所 示 。 
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图 12-8 打开 “默认 网 站 属性 ”对 话 杠 图 12-9 “应 用 程序 配置 ”对 话 框 


(5) 选择 “调试 ”选项 卡 ， 选 中 “启用 AS 服务 器 脚本 调试 ” 复 选 框 ， 如 图 12-10 所 
示 。 这 样 当 脚本 产生 错误 或 ASP 在 脚本 中 遇 到 断 点 时 ， 将 启动 脚本 调试 器 。 

(6) 若 选 中 “向 客户 端 发 送 详细 ASP 错误 消息 ” 单 选 按钮 ， 则 可 发 送 特定 调试 信息 (包括 文 
件 名 、 错 误 消 息 和 行 号 ) 到 浏览 器 ; 若 选中 “向 客户 端 发 送 文 本 错误 消息 ” 单 选 按钮 ， 则 产 
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生 错 误 时 发 送 默认 错误 消息 到 浏览 器 , 特定 错误 消息 被 写 入 错误 日 志 (可 在 下 面 的 文本 框 中 
更 改 默认 错误 消息 )。 
(7) 单 击 “确定 ”按钮 ， 保 存 设 置 并 关闭 Internet 信息 服务 管理 器 。 
(8) 启用 ASP 调试 后 ，ASP 程序 若 在 运行 时 发 生 错误 ， 系 统 会 自动 弹出 提示 对 话 框 ， 
提示 是 否 要 选择 一 种 调试 器 来 对 程序 进行 调试 ， 如 图 12-11 所 示 。 
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图 12-10 “调试 ”选项 卡 图 12-11 “实时 调试 ”对 话 框 


(9) 在 Microsoft 脚本 调试 器 的 “进入 并 单 步 执行 远程 过 程 调用 ”对 话 框 (如 图 12-12 
所 示 ) 中 单 击 “ 确 定 ”按钮 ， 脚 本 编辑 器 会 打开 .asp 文件 ， 将 语句 指针 指向 导致 错误 的 行 
并 生成 错误 消息 ， 如 图 12-13 所 示 。 


"e 


CNET 


图 12-12 “进入 并 单 步 执行 远程 过 程 调用 ”对 话 杠 图 12-13 Microsoft 脚本 编辑 器 


注意 : 

可 以 使 用 调试 程序 查看 脚本 和 定位 错误 ， 但 不 能 直接 编辑 脚本 。 因 为 调试 器 是 以 只 补 
方式 打开 脚本 的 。 要 改正 错误 ， 必 须 使 用 编辑 程序 来 编辑 脚本 ， 保 存 更 改 ， 然 后 再 次 运行 
该 脚本 。 
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12.1.3” 断 点 调试 


在 Microsoft 脚本 编辑 器 中 , 断 点 调试 是 一 种 常用 的 错误 调试 技术 。 断 点 是 在 脚本 中 作 
了 标记 的 位 置 ， 在 指定 的 脚本 行 暂停 执行 脚本 。 

当 发 生 错 误 但 无 法 轻松 地 找到 错误 源 时 ， 预 先 设置 “ 断 点 ”有 时 会 很 有 用 。 可 以 在 可 
疑 的 行 前 面 设置 一 个 或 多 个 不 同 的 断 点 ， 当 再 次 运行 程序 时 ， 程 序 在 执行 到 设置 了 断 点 的 
脚本 行 后 ， 系 统 会 自动 启动 脚本 调试 程序 显示 脚本 ， 并 且 语句 指针 指向 设置 了 断 点 的 行 。 
此 时 可 使 用 调试 程序 检查 脚本 中 设置 的 变量 或 属性 的 值 。 改 正 错误 后 ， 可 以 清除 断 点 ， 这 
样 脚本 就 可 以 不 间断 地 运行 了 。 

【练习 12-3】 以 【练习 12-1】 创 建 的 ASP 脚本 为 基础 ， 在 程序 中 设置 断 点 对 程序 进 
行 断 点 调试 ， 改 正 上 面 程序 输入 无 效 数字 时 脚本 没有 显示 出 错 提示 的 逻辑 错误 。 

(1) 根据 错误 推测 检查 输入 是 否 有 效 的 代码 有 问题 ， 在 【练习 12-11] 创建 的 ASP 脚本 
的 If intNum>10 And intNum<0 Then 语句 处 设置 断 点 。 

(2) 打开 Microsoft 脚本 编辑 器 ， 选 择 “调试 ”| “窗口 ” |“ 运行 文档 ”命令 ， 打 开 “ 运 
行文 档 ” 窗 口 ， 如 图 12-14 所 示 。 在 窗口 中 双击 一 个 文件 名 可 打开 相应 脚本 。 

(3) 将 和 鼠标 指针 移 到 需要 设置 断 点 的 行 (If intNum>10 And intNum<0 Then)， 然 后 单 击 
和 鼠标 右键 ， 在 弹出 的 快捷 菜单 中 选择 “插入 断 点 ”命令 ， 此 时 该 行 左边 的 空白 区 会 显示 断 
点 标记 曾 ， 如 图 12-15 所 示 。 


图 12-14 “运行 文档 ”窗口 1 


Gl 


能 在 至 少 已 运行 过 的 脚本 中 设置 断 点 .为 了 能 够 在 第 一 次 调用 脚本 时 暂时 中 断 执 行 ， 
可 以 在 脚本 的 可 疑 行 之 前 插入 一 个 Stop 语句 。 执 行 到 Stop 语句 时 ， 脚 本 会 暂停 执行 。 插 


入 Stop 语句 就 相当 于 设置 了 断 点 ， 调 试 完成 后 可 手工 清除 所 有 的 Stop 语句 。 例 如 : 


b 
i 


<%If Request.ServerVariables("DUERY STRING")-^"" Then 
intNume-cInt(Trim(Request.QueryString( "Nums"))) 
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Stop "暂停 脚本 执行 
Tf intNum>10 And intNum<0 Then 

(4) 在 浏览 器 中 重新 请 求 脚本 ， 执 行 到 断 点 所 在 行 后 ， 将 在 断 点 处 暂停 执行 并 在 左边 
空 自行 显示 断 点 中 止 标记 兹 。 此 时 ， 可 以 在 命令 窗口 中 用 “? ”( 问 号 ) 来 检查 变量 或 属性 
的 值 。 例 如 ， 要 检查 intNum 变量 的 值 ， 可 选择 “调试 ” |“ 窗口” |“ 即 时 ”命令 打开 命令 
窗口 ， 再 输入 ? intNum 并 按 Enter 键 ， 如 图 12-16 所 示 。 

(5) 选择 “调试 ”|“ 逐 语句 ”命令 ， 单 步 执 行 下 面 一 条 语句 ， 本 例 为 下 语句 。 此 操作 
执行 的 结果 为 ， 光 标 将 转 到 Else 后 面 的 语句 处 ， 如 图 12-17 所 示 。 

对 问题 进行 分 析 ， 发 现 问题 出 在 入 语句 处 。 因 为 当 输 入 不 在 0~10 之 间 的 数字 时 ， 
正常 运行 应 该 转 到 Then 后 的 第 一 条 语句 处 ， 因 此 If 的 判断 条 件 可 能 存在 问题 。If 中 的 
条 件 If intNum>10 And intNum<0 Then 是 错误 的 ， 因 为 无 论 输 入 什么 样 的 数字 ， 该 条 件 
总 是 False。 应 在 脚本 编辑 器 中 将 此 条 件 改 为 Ead dd intNum<0 Then, 


图 12-16 “运行 文档 ” 窗口 2 E 设置 是 点 2 


(6) 选择 “调试 ”|“ 逐 过 程 ”命令 ， 可 将 下 面 过 程 /函数 作为 一 个 整体 来 执行 ， 本 例 
为 factorial0) 函 数 。 "udin 结果 为 ， 光 标 将 转 到 函数 调用 后 的 语句 处 。 
(D) 选择 “调试 ”|“ 清 除 所 有 断 点 ”命令 ， 清 除 程 序 中 设置 的 所 有 断 点 。 


12.2 ”认识 ASP 错误 提示 


在 ASP 程序 运行 过 程 中 ,可 能 会 因 出 错 而 遇 到 各 种 错误 提示 。 了 解 这 些 错 误 提 示 所 代 
表 的 含义 ， 会 方便 对 程序 进行 调试 。 


12.2.1 VBScript 语法 错误 


如 果 用 户 在 使 用 VBScript 语句 编写 ASP 应 用 程序 时 ，VBScript 语句 结构 违反 了 一 个 
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或 多 个 VBScript 脚本 语言 语法 规则 ， 那 么 当 运 行 ASP 脚本 时 ， 浏 览 器 就 会 出 现 提 示 
VBScript 语法 错误 ， 如 图 12-18 所 示 。 


EC» 
òo prasa 


TENTAN 


pt 天 


HT 


(0:x800A0401) 


(0x800A03F9) 


图 12-18 VBScript 语法 错误 


VBScript 语法 错误 通常 在 执行 程序 前 ， 编 译 程序 时 产生 。 常 见 的 53 个 语法 错误 及 其 
相关 说 明 如 表 12-1 所 示 。 


表 12-1_VBScript 语法 错误 


错误 编号 
说 明 
上 进 制 上 六 进 制 
1001 800A03E9 内 存 不 足 
1002 800A03EA 语法 错误 
1003 800A03EB 缺少 “: ” 
1005 800A03ED 需要 “(” 
1006 800A03EE 需要 “)” 
1007 800A03EF 缺少 “]” 
1010 800A03F2 需要 标识 符 
1011 800A03F3 需要 = 
1012 800A03F4 mE If 
1013 800A03F5 需要 To 
1014 800A03F6 需要 End 
1015 800A03F7 需要 Function 
1016 800A03F8 需要 Sub 
1017 800A03F9 需要 Then 
1018 800A03FA 需要 Wend 
1019 800A03FB 需要 Loop 
1020 800A03FC 需要 Next 
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( 续 表 ) 
编 号 
说 RH 
十 进 制 十 六 进 制 
1021 800A03FD 需要 Case 
1022 800A03FE 需要 Select 
1023 800A03FF 需要 表达 式 
1024 800A0400 需要 语句 
1025 800A0401 需要 语句 的 结束 
1026 800A0402 需要 整数 常数 
1027 800A0403 需要 While 或 Until 
1028 800A0404 fX While, Until 或 语句 未 结束 
1029 800A0405 需要 With 
1030 800A0406 标识 符 太 长 
1031 无 效 的 数 
1032 无 效 的 字符 
1033 未 结束 的 串 常量 
1034 未 结束 的 注释 
1037 无 效 使 用 关键 字 Me 
1038 loop 没有 do 
1039 无 效 exit 语句 
1040 无 效 for 循环 控制 变量 
101 名 称 重 定义 
1042 800A0412 必须 为 行 的 第 一 个 语句 
1043 800A0413 不 能 赋 给 非 Byval 参数 
1044 800A0414 调用 Sub 时 不 能 使 用 圆 括号 
1045 800A0415 需要 文字 常数 
1046 800A0416 需要 In 
1047 800A0417 需要 Class 
1048 800A0418 必须 在 一 个 类 的 内 部 定义 
1049 800A0419 在 属性 声明 中 需要 Let,Set 或 Get 
1050 800A041A 需要 Property 
1051 800A041B 参数 数目 必须 与 属性 说 明 一 致 
1052 800A041C 在 类 中 不 能 有 多 个 默认 的 属性 /方法 
1053 800A041D 类 初始 化 或 终止 不 能 带 参数 
1054 800A041E PropertyLet 或 Set 至 少 应 该 有 一 个 参数 
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错误 编号 


十 进 制 十 六 进 制 

1055 800A041F 不 需要 Next 

1056 | 800A0420 只 能 在 Property 或 Function 或 Sub 上 指定 Default 
1057 800A0421 说 明 Default 时 必须 同时 说 明 Public 


只 能 在 PropertyGet 中 指定 Default 


800A0422 


12.2.2 VBScript 运行 错误 


如 果 编 写 ASP 应 用 程序 的 VBScript 脚本 执行 系统 无 法 实施 的 操作 , ASP 页 面 在 运行 
时 则 会 在 浏览 器 中 提示 VBScript 运行 错误 。 只 有 在 运行 脚本 ,为 变量 表达 式 赋值 或 分 配 内 
存 时 ， 才 会 产生 VBScript 运行 错误 。 常 见 的 65 个 运行 错误 及 其 相关 说 明 如 表 12-2 所 示 。 


表 12-2 VBScript 运行 错误 
错误 编号 
说 PA 

Hati ze 
无 效 过 程 调用 或 参数 
6 T 
7 内 存 不 中 
9 下 标 越界 


10 800A000A 该 数组 为 定 长 的 或 临时 被 锁定 
ii 800A000B 被 零 除 


13 800A000D 类 型 不 匹配 

14 800A000E TERR 8 [8] jd b 

17 800A0011 无 法 执行 请 求 的 操作 
28 800A001C 堆栈 溢出 


ww 


35 800A0023 未 定义 Sub 或 Function 


48 800A0030 加 载 DLL 错误 
51 800A0033 内 部 错误 

52 800A0034 坏 文件 名 或 数 
53 800A0035 文件 未 找到 


54 800A0036 坏 文 件 模式 
55 800A0037 文件 已 经 打开 
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( 续 表 ) 
错误 编号 说 明 
十 进 制 十 六 进 制 
57 800A0039 设备 IO 错误 
58 800A003A 文件 已 经 存在 
61 800A003D 磁盘 空间 已 满 
62 800A003E 输入 超出 文件 尾 
67 800A0043 文件 太 多 
68 800A0044 设备 不 可 用 
70 800A0046 权限 禁用 
71 800A0047 磁盘 未 准备 好 
74 800A004A 不 能 用 不 同 的 驱动 器 重新 命名 
75 800A004B 路 径 / 文 件 访问 错误 
76 800A004C 路 径 未 找到 
91 未 设置 对 象 变量 
92 For 循环 未 初始 化 
94 Ici f Null 
322 不 能 建立 所 需 临 时 文件 
424 需要 对 象 
429 ActiveX 部 件 无 法 创建 对 象 
430 类 不 支持 自动 化 
432 在 自动 化 操作 中 未 找到 文件 名 或 类 名 
438 对 象 不 支持 该 属性 或 方法 
440 800A01B8 Automation 错误 
445 800A01BD 对 象 不 支持 此 操作 
446 800A01BE 对 象 不 支持 指定 的 参数 
447 800A01BF 对 象 不 支持 当前 的 区 域 设 置 
448 800A01C0 未 找到 命名 参数 
449 800A01C1 参数 不 可 选 
450 800A01C2 错误 的 参数 个 数 或 无 效 的 参数 属性 值 
451 800A01C3 对 象 不 是 一 个 集合 
453 800A01C5 指定 的 dl 函数 未 找到 
455 800A01C7 代码 源 锁 错误 
457 800A01C9 这 个 键 已 经 是 本 集合 的 一 个 元 素 关联 
458 800A01CA 变量 使 用 了 一 个 VBScript 中 不 支持 的 自动 化 (Automation) 类 型 
462 远程 服务 器 不 存在 或 不 能 访问 


so17 
sois 
sois 
s020 
soi 
xen 


12.2.3 ADO 错误 
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( 续 表 ) 
错误 编号 
十 进 制 十 六 进 制 
481 800A01E1 无 效 图 片 
500 800A01F4 变量 未 定义 
501 800A01F5 违法 的 分 配 
502 800A01F6 脚本 对 象 不 安全 
503 对 象 不 能 安全 初始 化 
504 800A01F8 对 象 不 能 安全 创建 
505 无 效 的 或 不 合格 的 引用 
506 800A01FA 类 未 被 定义 
507 发 生 异 常 
5016 800A1398 需要 正则 表达 式 对 象 


正则 表达 式 中 的 语法 错误 
错误 的 数量 词 

在 正则 表达 式 中 需要 “]” 
在 正则 表达 式 中 需要 “)” 
字符 集 越界 

元 素 未 找到 


除了 在 Error 对 象 和 Errors 集合 中 说 明 的 提供 者 错误 之 外 ，ADO 本 身 也 将 错误 返回 到 


运行 时 环境 的 异常 处 理 机 制 中 。 


使 用 编程 语言 的 错误 捕获 机 制 (如 Microsoft Visual Basic 中 的 OnError 语句 ) 可 捕获 及 处 


理 ADO 错误 ， 其 代码 值 及 相关 说 明 如 表 12-3 所 示 。 


表 12-3 ADO 错误 代码 值 


常 量 名 说 — m" 
adErrProviderfailed 提供 者 未 能 完成 请 求 的 动作 
. 应 用 程序 正 使 用 类 型 错误 、 超 出 可 接受 范围 或 与 其 他 
adErrInvalidArgument 
参数 冲突 的 参数 
adErrOpeningFile 在 打开 所 请 求 文件 的 同时 出 现 一 个 错误 
adErrReadFile 从 指定 文件 读 取 时 存在 一 个 错误 
adErrWriteFile 在 写 文件 的 同时 存在 一 个 错误 
EOF 或 BOF 为 True， 或 当前 记录 已 被 删除 。 应 用 程 
adErrNoCurrentRecord 


序 所 请 求 的 操作 需要 一 个 当前 记录 
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( 续 表 ) 

常 量 名 kt B 说 PA 
adErrIllegalOperation 在 这 个 文本 中 不 允许 应 用 程序 请 求 的 操作 
adErrCantChangeProvider 3220 提供 者 不 能 更 改 
TEN 应 用 程序 在 一 个 事务 处 理 的 中 途 不 能 明确 地 关闭 

一 个 Connection 对 象 
adErrFeatureNotAvailable 提供 者 不 支持 应 用 程序 所 需 的 操作 
adErrItemNotFound ADO 不 能 找到 集合 中 的 对 象 
adErrObjectInCollection 不 能 附加 。 对 象 已 经 在 集合 
adErrObjectNotSet 应 用 程序 所 引用 的 对 象 不 再 指向 一 个 合法 对 象 
adErrDataConversion 应 用 程序 正 使 用 当前 应 用 程序 不 支持 的 值 


adErrObjectClosed 
adErrObjectOpen 
adErrProviderNotFound 
adErrBoundToCommand 
adErrInvalidParamInfo 
adErrInvalidConnection 


adErrErrNotReentrant 
adErrStillExecuting 
adErrOperationCancelled 
adErrStillConnecting 


adErrInvalidTransaction 


3706 


3707 


3710 


如 果 此 对 象 关闭 ， 不 允许 应 用 程序 响应 所 请 求 的 操作 
如 果 对 象 是 打开 的 , 则 不 允许 应 用 程序 所 请 求 的 这 


个 操作 
ADO 找 不 到 指定 的 提供 者 


应 用 程序 无 法 用 Command 对 象 将 Recordset 对 象 


的 ActiveConnection 属性 更 改 为 它 的 源 数据 
应 用 程序 不 正确 地 定义 了 一 个 Parameter 对 象 


应 用 程序 请 求 在 一 个 涉及 关闭 的 或 非法 的 


Connection 对 象 上 操作 
此 操作 可 重 入 


操作 仍然 在 执行 
这 个 操作 被 取消 
操作 仍然 处 于 连接 中 


adErrErrNotExecuting 


adErrUnsafeOperation 


此 操作 没有 执行 
此 操作 在 这 些 情 况 下 是 不 安全 的 


adErrSecurityDialog 


adErrSecurityDialogHeader 


此 操作 导致 显示 一 个 安全 对 话 
此 操作 导致 显示 一 个 安全 对 话 标题 


adErrIntegrityViolatin 活动 由 于 违反 了 数据 完整 性 而 失败 
adErrPermissionDenied 因为 您 没有 权限 完成 这 个 操作 ， 所 以 活动 失败 
adErrDataOverflow 数据 对 所 提供 的 数据 类 型 太 大 
adEITSchemaViolation 动作 违反 模式 

adEITSignMismatch 表达 式 包含 失 配 的 符号 
adErrErrCantConvertvalue 值 不 能 转换 

adErrErrCantCreate 资源 不 能 建立 
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( 续 表 ) 
常 量 名 说 m" 
adErrColumnNotOnThisRow 这 个 行 上 指定 的 列 不 存在 
adErrURLDoesNotExist 此 URL 不 存在 
adErrTreePermissionDenied 没有 查看 此 目录 树 的 权限 
adErrInvalidURL 所 提供 的 URL 是 非法 的 
adErrResourceLocked 资源 被 锁定 
adErrResourceExists 资源 已 经 存在 
adErrCannotComplete 活动 不 能 完成 
adErrVolumeNotFound 文件 列 未 找到 
adErrOutOfSpace 因为 不 能 获得 足够 的 空间 完成 此 操作 ， 此 操作 失败 
adErrResourceOutOfScope 3735 资源 超出 范围 
adErrUnavailable 3736 命令 不 可 用 


adErrURLamerowDoesNotExist 
adErrDelResOutOfScope 
adErrPropInvalidColumn 
adErrPropInvalidOption 
adErrPropInvalidValue 
adErrPropConflicting 
adErrPropNotAllSettable 
adErrPropNotSet 
adErrPropNotSettable 
adErrPropNotSupported 
adErrCatalogNotSet 


adErrCantChangeConnection 


3737 
3738 
3739 
3740. 
374 
3742 
3743 
3744 
3745 
3746 
3747 
3748 


指定 行 中 此 URL 不 存在 

此 资源 不 能 删除 ， 因 为 它 超出 了 允许 的 范围 
此 属性 对 所 选择 的 列 是 无 效 的 

为 此 属性 提供 了 一 个 无 效 的 选项 
为 此 属性 提供 了 一 个 无 效 的 值 
设置 此 属性 引起 与 其 他 属性 的 冲突 
并 非 所 有 属性 都 可 以 设置 

此 属性 未 设置 

此 属性 不 能 设置 

不 支持 此 属性 

活动 不 能 完成 ， 因 为 目录 未 设置 
连接 不 能 更 改 


adErrFieldsUpdateFailed 


adErrDenyNotSupported 


3749 
3750 


Fields 集合 的 Update 方法 失败 
不 能 设置 Deny 权限 ， 因 为 提供 者 不 支持 它们 


adErrDenyTypeNotSupported 


12.2.44 ASP 错误 代码 


p 
D 
E 


3751 


提供 者 不 支持 所 需 Deny 的 类 型 


ASP 应 用 程序 在 运行 时 的 常见 错误 代码 及 其 相关 说 明 如 表 12-4 所 示 。 用 户 在 调试 ASP 
脚本 程序 时 ， 可 以 参考 表 中 所 示 的 内 容 识别 ASP 脚本 错误 。 
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表 12-4 ASP 错误 代码 


RRE 错误 消息 说 RB 
ASP0100 Out of memory 内 存 不 足 (不 能 分 配 要 求 的 内 存 ) 
ASP0101 Unexpected error 意外 错误 
ASP0102 Expecting string input 缺少 字符 串 输入 
ASP0103 Expecting numeric input 缺少 数字 输入 
ASP0104 Opration not allowed 操作 不 允许 
ASP0105 Index out of ange 索引 超出 范围 (一 个 数组 索引 超 界 ) 
ASP0106 Type Mismatch 类 型 不 匹配 ( 遇 到 的 数据 类 型 不 能 被 处 理 ) 
ASP0107 Stack Overflow 栈 溢出 (正在 处 理 的 数据 超出 了 允许 的 范围 ) 
意外 错误 (外 部 对 象 出 现 可 捕获 的 exception name 
ASP0115 Unexpected error 
错误 ， 脚 本 不 能 继续 运行 ) 
ASP0177 Server.CreateObject Failed 服务 器 创建 对 象 失败 (无 效 的 progid) 
ASP0190 Unexpected error 意外 错误 ( 当 释 放 外 部 对 象 ， 产 生 可 捕获 的 错误 ) 
意外 错误 (在 外 部 对 象 的 OnStartPage 方 法 中 产生 可 
ASP0191 Unexpected error 
捕获 的 错误 ) 
意外 错误 (在 外 部 对 象 的 OnEndPage 方法 中 产生 可 
ASP0192 Unexpected error 
捕获 的 错误 ) 
ASP0193 OnStartPage Failed 在 外 部 对 象 的 OnStartPage 方法 中 产生 错误 
ASP0194 OnEndPage Failed 在 外 部 对 象 的 OnEndPage 方法 中 产生 错误 
ASP0240 Script Engine Exception 脚本 引擎 从 object_ name 对 象 中 抛 出 exception_name 异常 
CreateObject Exception " 
ASP0241 对 象 的 CreatObject 方法 引起 了 exception name 异常 
object name 
ASP0242 Query OnStartPage nterface 查询 对 象 Object name 的 OnsException 


12.3 HEX ASP 错误 信息 


当 用 户 试图 连接 到 Web 站 点 时 , 若 出 现 了 HTTP 错误 , 服务 器 就 会 向 用 户 返 回 - 


-条 错 


误 消 息 ， 简 述 试 图 建立 连接 时 所 发 生 的 事情 。 例 如 ， 如 果 用 户 试图 连接 到 某 个 Web 站 点 ， 


而 该 站 点 已 达到 最 大 连接 数 时 ， 服 务 器 就 会 


以 HTML 页 形式 返回 一 条 HTTP 错误 ， 其 中 包 


含 “ 用 户 太 多 ”这 样 的 错误 信息 。 
可 以 在 IIS 管理 
WB B. 


这 些 自 定义 错误 信息 可 以 映射 为 文件 名 或 URL。 可 用 IIS 


单元 中 配置 IS 来 发 送 自 定 义 错误 信息 ， 而 不 是 发 送 默认 的 HTTP 1.1 
管理 单元 自 定 义 的 


HTTP 1.1 的 错误 信息 如 表 12-5 所 示 。 
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3k 12-5 WUA IIS 管理 单元 自 定义 的 HTTP 1.1 错误 消息 
错误 代码 错误 消息 错误 代码 错误 消息 

400 不 正确 的 请 求 403.14 目录 列表 被 拒绝 
401.1 登录 失败 403.15 已 超过 客户 访问 许可 协议 
401.2 由 于 服务 器 配置 导致 登录 失败 403.16 客户 证 书 不 被 信任 或 无 效 
401.3 由 于 资源 上 的 ACL 导致 未 被 授权 403.17 客户 证 书 过 期 或 者 已 经 无 效 
401.4 由 于 筛选 器 导致 授权 失败 404 找 不 到 

由 于 ISAPICGI 应 用 程序 导致 授 m 
401.5 404.1 找 不 到 站 点 

权 失 败 

403.1 “执行 ”访问 被 禁止 405 不 允许 的 方法 
403.2 “ 读 取 ” 访 问 被 禁止 406 不 接受 
403.3 “ 写 入 ”访问 被 禁止 407 需要 代理 验证 
403.4 412 预期 的 失败 
403.5 414 要 求 的 URI 太 长 
403.6 500 内 部 服务 器 错误 
403.7 500.12 正 重新 启动 应 用 程序 
403.8 站 点 访问 被 拒绝 500.13 服务 器 太 忙 
403.9 500.15 不 允许 请 求 Globalasa 
403.10 500-100.asp | ASP 错误 
403.11 soi 没有 执行 
40312 s02 错误 的 网 关 
403.13 403.13 客户 证 书 已 被 撤销 


自 定义 错误 消息 作为 列表 显示 在 TIS 的 管理 单元 中 ，IIS 将 此 管理 单元 看 作 单个 属性 。 
例如 ， 在 Web 站 点 级 配置 一 组 自 定义 错误 消息 后 ， 该 服务 器 下 的 所 有 目录 都 将 继承 整个 
自 定义 错误 消息 列表 。 也 就 是 说 ， 两 个 自 定义 错误 消息 列表 (对 于 服务 器 和 目录 ) 并 不 合 二 


为 二 


如 果 Web 服务 器 超过 了 CPU 进程 限制 , 就 会 向 客户 端 发 送 一 条 503.1 自 定义 的 HTTP 
错误 。 这 条 错误 消息 向 客户 端 传递 这 样 的 信息 ， 由 于 Web 服务 器 超出 这 些 设 置 限制 ， 已 被 


暂停 或 停止 。 
404.1 错误 只 


会 出 现在 具有 多 个 IP 地 址 的 计算 机 上 。 如 果 在 特定 IP 地 址 /端口 组 合 上 
收 到 客户 请 求 , 而 且 在 特定 的 端口 上 JP 地址 并 没有 设置 为 侦 听 ， 则 TIS 将 返回 404.1 HTTP 
错误 。 例 如， 如 果 一 台 计 算 机 有 两 个 他 地 址 ,而 只 将 其 中 一 个 了 P 地 址 配置 为 在 端口 80 上 
侦 听 , 则 其 他 TP 地 址 从 端口 80 收 到 的 任何 请 求 都 将 导致 HS 返回 404.1 错误 。 在 服务 级 设 
置 这 一 错误 ， 只 有 当 服 务 器 上 使 用 多 个 IP 地 址 时 才 返 回 给 客户 。 
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12.3.1 添加 自 定 义 错误 消息 


自 定义 错误 消息 可 分 为 两 种 形式 : 映射 为 文件 或 映射 为 URL。 这 两 种 形式 都 可 通过 设 
置 “Intemet 信息 服务 ”控制 台中 的 “ 自 定义 错误 ”属性 页 来 实现 。 

【练习 12-4】 在 “Internet 信息 服务 ”控制 台中 添加 自 定义 错误 。 

(1) 创建 包含 自 定义 错误 消息 的 文件 并 将 其 放 入 某 个 目录 中 。 

(2) Æ “Internet 信息 服务 ”控制 台中 , 在 欲 自 定义 HTTP 错误 的 Web 站点、 虚拟 目录 、 
目录 或 文件 上 右 击 ， 在 弹出 的 快捷 菜单 中 选择 “属性 ”命令 ， 如 图 12-19 所 示 。 

(3) 系统 弹出 属性 对 话 框 ， 选 择 “ 自 定 义 错误 ”选项 卡 ， 选 中 想 要 更 改 的 HTTP HHR, 
如 图 12-20 所 示 。 


stum 
sap RU ont rid 


rm al 
a [Eee 


w 


Æ 12-19 — "Intemet 信息 服务 ”控制 台 图 12-20 “ 自 定义 错误 ”选项 卡 


(4) 单 击 “ 编 辑 属性 ”按钮 ， 系 统 弹出 “错误 映射 属性 ”对 话 框 ， 如 果 要 将 错误 消息 
映射 为 文件 ， 可 在 “消息 类 型 ”下 拉 列 表 框 中 选择 “文件 ”选项 (如 图 12-21 所 示 )， 然 后 
在 “文件 ”文本 框 中 输入 指向 自 定义 错误 消息 的 路 径 和 文件 名 ， 或 者 单 击 “ 浏 览 ” 按 钮 来 
定位 硬盘 上 的 文件 ; 如 果 要 映射 为 URL， 可 在 “消息 类 型 ” 框 中 选择 URL 选项 ， 然 后 输 
入 指向 自 定 义 错 误 消 息 的 URL， 如 图 12-22 所 示 。 


Gie] ima cease sun xm nasen lun a ER Wc m n meal raa (xm [naela Sew] OO 
- Lr | 


Lese] 


Lx JL xe a ][ -» ] 


T 


12-21 选择 “文件 ”选项 图 12-22 输入 指向 自 定义 错误 消息 的 URL 
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(5) 单 击 “确定 ”按钮 ， 即 可 完成 自 定义 错误 的 添加 。 


如 果 定 义 了 用 于 处 理 自 定义 错误 的 ASP 文件 ， 则 脚本 将 作为 传送 上 下 文 的 URL 被 调 
用 。 例 如 ， 如 果 有 一 个 定义 好 的 用 于 处 理 HTTP 405 错误 的 ASP 文件 Handle405.asp， 则 当 
用 户 打 开 网 页 时 出 现 405 错误 ， 就 会 调用 此 ASP 文件 。 

如 果 使 用 静态 自 定义 错误 文件 (HTML 文件 )， 则 应 将 消息 类 型 设 为 “文件 ”。 如 果 打 
算 开 发 一 个 应 用 程序 (使 用 ISAPI 或 ASP) 来 处 理 错误 ， 则 应 将 消息 类 型 设 为 URL。 应 该 注 
意 , 错误 状态 是 用 URL 参数 传递 给 应 用 程序 的 ,而 设置 HTTP. 头 状态 则 是 应 用 程序 的 职责 ; 
否则 ，HTTP 的 反应 状态 就 是 HTTPI.12000K. 


12.3.2 BEX ASP 错误 处 理 


Web 站 点 及 其 所 有 应 用 程序 都 默认 将 ASP 错误 进程 传送 到 500-100.asp 文件 ， 该 文件 
处 理 ASP 文件 编译 和 运行 期 间 发 生 的 任何 错误 。 当 ASP 文件 发 生 错误 时 ，IIS 通过 Server 
对 象 的 Transfer 方法 将 请 求 从 正在 执行 的 ASP 文件 传输 到 500-100.asp 文件 ， 原 来 请 求 的 
ASP 文件 立即 终止 并 返回 详细 的 错误 信息 ， 如 发 生 错 误 的 行 号 和 对 错误 的 描述 等 。 

然而 ， 对 于 用 户 创建 的 任何 新 的 Web 站 点 或 其 应 用 程序 来 讲 ，500-100.asp 错误 进程 
默认 不 是 传送 到 自 定义 错误 处 理 文件 ， 而 是 传送 到 HTTP 1.1 默认 错误 处 理 。 可 以 在 IIS 管 
理 单元 中 将 500-100.asp 错误 映射 到 500-100.asp 文件 , 或 者 映射 到 自己 创建 的 ASP 错误 处 
理 文件 。 

要 创建 自己 的 ASP 错误 处 理 文件 ， 需 要 使 用 Server 对 象 的 GetLastError 方法 ,该 方法 
返回 一 个 ASPError 对 象 。ASPError 对 象 用 来 捕捉 ASP 错误 并 向 用 户 返 回 有 用 的 信息 ， 如 
错误 描述 和 发 生 错 误 的 行 号 等 。ASPError 对 象 包含 如 表 12-6 所 示 的 只 读 属性 。 


表 12-6 ASPError 对 象 的 属性 


R 性 说 m" 
ASPCode 返回 ASP 产生 的 错误 码 
Number 返回 标准 ASP 错误 码 
Source 返回 产生 错误 行 的 实际 源 代 码 
Category 返回 错误 类 型 
File 错误 发 生 时 ， 返 回 正 被 处 理 的 ASP 文件 
Line 返回 发 生 错误 的 行 
Column 返回 发 生 错误 的 列 
Description 返回 错误 的 简短 描述 


ASPDescription 如 果 是 ASP 相关 错误 ， 则 返回 更 详细 的 错误 描述 


【练习 12-5】 自 定义 一 个 ASP 错误 处 理 。 
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(1) 创建 一 个 名 为 500-100ac.asp 的 文件 ， 其 代码 如 下 所 示 : 


<% 
Set objAE-Server.GEtLastError 
Response. Write objAE.Category&"-Br»" 
If objAE.ASPCode»"" Then 
Response. Write "错误 码 : "&objAE.ASPCode&"-Br»" 
End If 
Response. Write Hex(objAE.Number)&"-Br-^" 
Response.Write "-B»"&objAE.Description&"-/B»-Br^" 
If objAE.Description»"" Then 
Response. Write objAE.Description&"-Br^" 
End If 
binErrorWritten-False 
If objAE.Source>"" Then 
strServerName-I Case(Reugest.ServerVariables("SERVER-NAME")) 
strServerIP-Request.ServerVariables("LOCAL ADDR") 
strRemoteIP-Reuqest.ServerVariables("REMOTE ADDR") 
If (strServerName-"localhost" Or strServerIP-strRemoteIP) 
And objAE.File—"?" Then 
Response.Write objAE.File 
If objAE.Line-0 Then 
Response. Write "£5 ix Jt (E £T" &objAE.Line 
End If 
If objAE.Column-0 Then 
Response. Write "4H ix Ji (E |" &objAE.Column&"«Br»" 
End If 
Response.Write Server. HTMLEncode(objAE.Source)&"-Br»" 
binErrorWritten-True 
End If 
End If 
If Not bInErrorWritten And objAE.File—"?" Then 
Response.Write "-B»"&objAE.File 
If objAE.Line>0 Then 
Response.Write "， 错 误 所 在 行 "&objAE.Line 
End If 
If objAE.Column»0 Then 
Response.Write "， 错 误 所 在 列 "&objAE.Column&"</B><Br>" 
End If 
End If 


9o 


(2) 将 500-100ac.asp 文件 保存 至 CInetpubwwwroot X 4F X F. 

(3) Æ "Internet 信息 服务 ”控制 台中 右 击 待 映射 的 Web 站 点 、 虚 拟 目 录 或 目录 ， 然 后 
在 弹出 的 快捷 菜单 中 选择 “属性 ”命令 ， 打 开 相 应 的 属性 对 话 框 。 

(4) 切换 到 “ 自 定 义 错误 ”选项 卡 ， 选 择 500 : 100 错误 。 
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(5) 单 击 “ 编 辑 属性 ”按钮 打开 “错误 映射 属性 ”对 话 框 。 

(6) 在 “消息 类 型 ”下拉 列表 框 中 选择 URL, 在 URL 文本 框 中 输入 指向 500-100ac.asp 
的 URL, wA 12-23 所 示 。 

(7) 单 击 “ 确 定 ” 按 钮 。 

(8) 将 500 : 100 错误 映射 为 自 定义 错误 处 理 文件 后 , 若 请 求 应 用 程序 中 的 ASP 文件 时 
发 生 错 误 ， 就 会 显示 自 定义 错误 消息 。 例 如 ， 执 行 上 面 输入 的 脚本 时 ， 将 显示 如 图 12-24 
所 示 的 错误 提示 页 面 。 


[Ps liser 广角 | 主 目录 | 文档 | BREE rr 头 ] EEEE | 
vr 错误 消息 


imBzman. (unn 


[Ei Ninetsbherer oct 500-100 e. asp 
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图 12-23 映射 自 定 义 ASP 错误 处 理 图 12-24 最 示 自 定义 错误 信息 > 
如 果 错 误 处 理 文件 包含 运行 错误 ， 则 只 显示 此 错误 ， 而 不 考虑 请 求 的 .asp 文件 中 的 错 
误 类 型 。 如 果 错 误 处 理 文件 有 预 处 理 和 编辑 错误 ， 则 在 浏览 器 中 显示 这 两 种 错误 ， 即 显示 
攻 误 处 理 文件 中 的 错误 和 请 求 的 ASP 文件 中 的 错误 


12.3.3 ”错误 跳 转 语句 


当 程 序 出 现 错误 时 将 终止 ASP 的 运行 ， 此 时 可 使 用 On Error Resume Next 语句 ， 使 程 
序 中 的 所 有 错误 都 被 忽略 ， 而 自动 执行 下 一 条 语句 。 这 样 程序 就 会 完全 执行 ， 用 户 也 不 会 
看 到 出 错 信息 。 

在 ASP 中 ， 可 在 程序 最 底 端 放 上 代码 来 处 理 错 误 ， 并 在 每 个 ASP 程序 中 都 使 用 缓冲 
区 。 如 果 错 误 发 生 ， 页 面 就 会 停止 ， 页 面 内 容 也 会 被 清除 。 


【练习 10-6】 编 写 一 段 错误 处 理 代 码 ， 在 程序 出 错时 能 够 清除 页 面 中 的 显示 内 容 并 向 
用 户 返 回 错误 的 相关 信息 ， 程 序 运行 效果 如 图 12-26 所 示 。 
(1) 创建 一 个 名 为 “10-3- 错 误 调 试 .asp” 的 文件 ， 其 代码 如 下 所 示 : 


<%@ LANGUAGE-"VBScript" %> 
<%Response.Buffer = True 

"设置 buffer 为 True 

On Error Resume Next 


"开始 错误 处 理 
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%> 

<%" 错 误 处 理 

If Err. Number — 0 Then 
"清除 页 面 
Response.Clear 

"显示 错误 信息 给 用 户 
96» 


</HEAD> 

«BODY BGCOLOR-"4C0COCO"- 

<FONT FACE='ARIAL'> 程 序 运行 时 发 生 错误 <BR> 
请 根据 下 面 的 错误 提示 信息 检测 排 错 。 
<P><B> 错 误 描述 信息 </B><BR> 
错误 号 码 : <%= Err.Number %><BR> 
错误 信息 : <%= Err.Description %><BR> 
出 错 文件 : <%= Err.Source %><BR> 

出 错 行 : <%= Err.Line %><BR> 
</FONT> 

</BODY> 

</HTML> 

<%End If%> 


(2) 将 上 面 输入 的 代码 保存 至 C:\Inetpubvwwwroot X fF X F. 
(3) 在 浏览 器 中 打开 网 页 后 ， 效 果 如 图 12-25 所 示 。 
(4) 在 页 面 的 文本 框 中 输入 数字 - 2 后 ， 单 击 “ 提 交 ” 按 钮 ， 网 页 将 显示 如 图 12-26 所 


GO - Er rove tita EET 
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图 12-25 脚本 调试 页 面 图 12-26 错误 处 理 页 面 
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注意 : 
在 程序 的 开始 部 分 添加 一 条 On Error Resume Next 语句 ， 这 样 当 运行 出 现 错误 时 也 不 
会 影响 程序 的 执行 。 


在 数据 库 的 执行 中 不 能 直接 加 入 On Error Resume Next 错误 处 理 语句 ， 因 为 如 果 在 数 

据 库 添加 记录 过 程 中 发 生 运行 错误 ，On Error Resume Next 语句 会 忽略 所 有 错误 ， 程 序 依 
旧 会 向 数据 库 中 添加 一 个 错误 的 信息 数据 。 为 避免 这 种 情况 ， 可 在 对 数据 库 进 行 数据 处 理 
前 添加 判断 语句 ， 如 下 例 所 示 : 

If Err.Number = 0 And objConnection.Errors.Count = 0 Then 

"这 里 才能 执行 语句 ， 因 为 没有 错误 

Set rstResults = dbData.Execute(txtSqI) 

End If 
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事务 是 一 种 服务 器 操作 ， 该 操作 要 么 全 部 成 功 ， 要 么 全 部 失败 ， 即 使 该 操作 包含 许多 
步骤 (如 订购 、 检 查 存货 及 付 账 等 ) 也 是 如 此 。 可 以 创建 在 事务 内 运行 的 服务 器 端 脚本 ， 如 
果 脚 本 出 错 ， 则 整个 事务 将 中 止 。 

ASP 事务 基于 “组 件 服务 (Component Services)” 事 务 环境 ， 这 是 一 种 事务 处 理 系统 ， 
用 来 开发 、 部 署 和 管理 高 性 能 、 可 扩展 的 Intemet/Intranet 服务 器 应 用 程序 。 如 果 事 务 中 止 ， 
“组 件 服 务 ” 将 恢复 对 支持 事务 的 资源 所 做 的 任何 更 改 。 


124.4 事务 简介 


ASP 事务 处 理 是 以 Microsoft Transaction Server(MTS) 为 基础 的 。Transaction Server 为 
开发 分 布 式 的 、 基 于 组 件 的 应 用 程序 提供 了 一 个 应 用 程序 设计 模型 ， 也 为 配置 和 管理 这 些 
应 用 程序 提供 了 一 个 运行 环境 。 

事务 是 整体 成 功 或 失败 的 操作 。 事 务 处 理 用 于 对 数据 库 进行 可 靠 的 更 新 。 在 对 数据 库 
进行 许多 相关 更 改 或 同时 更 新 多 个 数据 库 时 ， 要 保证 所 有 更 改 都 被 正确 执行 。 如 果 这 些 更 
改 中 的 任何 一 个 失败 ， 都 须要 恢复 数据 库 表 的 原始 状态 。 

事务 不 能 跨越 多 个 ASP 页 。 如果 一 个 事务 需要 来 自 多 个 组 件 的 对 象 ， 则 将 须 使 用 这 些 
对 象 的 操作 组 合 在 一 个 ASP 页 中 。 例如， 假定 有 一 个 组 件 用 于 更 新 工资 单数 据 库 ， 还 有 一 
个 组 件 用 于 更 新 人 力 资源 数据 库 中 的 员工 记录 。 为 了 记录 一 个 员工 的 新 工资 信息 ， 则 须要 
编写 在 一 个 事务 环境 中 调用 这 两 个 组 件 的 脚本 ， 一 个 用 于 更 新 工资 单数 据 库 ， 另 一 个 用 于 
更 新 人 力 资 源 数 据 库 中 的 员工 等 级 。 
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注意 : 
事务 处 理 只 适用 于 数据 库 访问 , MTS 不 能 对 文件 系统 或 其 他 的 非 事 务 性 资源 的 更 改进 
行 恢复 操作 。 应 用 程序 所 访问 的 数据 库 必 须 为 MTS 所 支持 。 


12.4.2 ”声明 事务 脚本 


将 一 个 页 声明 为 事务 性 时 ， 此 页 中 的 任何 脚本 命令 和 对 象 都 运行 在 同一 个 事务 环境 
中 。Transaction Server 处 理 生 成 事务 的 细节 并 决定 事务 成 功 (提交 ) 或 失败 (终止 )。 要 声明 事 
务 脚本 ， 只 需 在 ASP 页 顶部 添加 @TRANSACTION 命令 即 可 ， 其 语法 结构 如 下 : 


<%@ TRANSACTION = value %> 


value 参数 可 以 是 下 列 常量 之 一 。 

e Requires New: 启动 一 个 新 的 事务 。 

* Required: 启动 一 个 新 的 事务 。 

e Supported: 不 启动 事务 。 

* Not Supported: 不 启动 事务 。 

大 多 数 应 用 程序 只 有 一 些 特定 的 操作 需要 事务 环境 。 如 航空 公司 站 点 可 以 用 事务 脚本 
来 售票 和 分 配 座位 等 。 由 于 事务 只 适用 于 需要 事务 进程 的 页 ， 因 此 不 可 将 应 用 程序 的 
Global.asa 文件 声明 为 事务 性 。 

通过 调用 Server 对 象 的 Transfer 和 Execute 方法 ， 事 务 可 以 扩展 到 多 个 ASP 页 。 如 果 
脚本 包含 值 为 Required 的 @TRANSACTION 命令 ， 并 且 Server.Transfer 或 Server.Execute 
方法 调用 该 脚本 ， 则 脚本 将 继续 运行 调用 ASP 文件 的 事务 ( 若 调用 ASP 文件 已 被 处 理 )。 如 
果 调 用 ASP 文件 未 被 处 理 ， 则 被 调用 的 ASP 文件 将 自动 创建 新 事务 。 例 如 : 

ASP1: 


<%@TRANSACTION =Required%> 
<% 

Server. Transfer("/asp/asp2.asp") 

%> 


ASP2: 


<%@TRANSACTION =Required%> 
<% 
Set objSales-Server.CreateObject("SalesTransacted.Complete") 
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两 个 脚本 的 交互 只 能 形成 一 个 单一 事务 。 


@TRANSACTION 指令 必须 在 一 页 中 的 第 一 行 ， 否则 将 产生 错误 。 必 须 将 该 指令 添加 
到 需要 在 事务 下 运行 的 每 一 页 中 。 当 脚本 处 理 结束 时 ， 当 前 事务 即 告 结束 。 


12.4.3 ”提交 或 中 止 事 务 


因为 Transaction Server 跟踪 事务 处 理 ， 所 以 它 决定 事务 是 完全 成 功 还 是 失败 。 可 以 用 
ObjectContext 对 象 来 提交 和 中 止 由 “组 件 服务 ”管理 的 事务 。ObjectContext 对 象 包含 
SetAbort 和 SetComplete 两 个 方法 。 

SetAbort 方法 用 来 中 止 事务 。 例 如 ， 当 一 个 事务 从 一 个 组 件 收 到 错误 消息 、 违 反 商业 
规范 时 (例如 ,账户 余额 小 于 0) 或 读 写 文件 等 非 事务 性 操作 失败 时 , 脚本 就 须要 终止 该 事务 。 
如 果 网 页 在 事务 完成 之 前 超时 ， 则 事务 也 将 被 中 止 。 

调用 SetAbort 方法 ， 将 导致 “组 件 事务 ”恢复 对 资源 所 做 的 任何 更 改 。 事 务 中 止 时 ， 
脚本 的 OnTransactionCommit 事件 将 被 处 理 。 如 下 例 所 示 : 


<%@ TRANSACTION=Required LANGUAGE=VBScript%> 
<% 

ObjectContext.SetAbort 

Sub OnTransactionAbort 

Response.Write "<P><B> 事 务 被 中 止 </B>" 

End Sub 

%> 


调用 SetComplete 方法 并 不 意味 着 事务 被 提交 。 仅 当 脚 本 调用 的 所 有 事务 性 组 件 都 调 
用 SetComplete 方法 时 ， 事 务 才 提 交 。 大 多 数 情况 下 ， 不 需要 在 脚本 内 部 调用 SetComplete 


方法 ， 


因为 只 要 脚本 没有 调用 SetAbort 方法 ， 则 脚本 处 理 完 后 将 提交 当前 事务 。 提 交 事 务 


时 将 触发 OnTransactionAbort 事件 。 如 下 例 所 示 : 


<%@ TRANSACTION-Required LANGUAGE=VBScript%> 
<% 

ObjectContext.SetComplete 

Sub OnTransactionCommit 

Response.Write "<P><B> 事 务 被 提交 </B>" 

End Sub 

%> 
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12.5 5 题 


12.5.4 填空 题 


(1) ASP 程序 在 运行 时 有 可 能 出 现 各 种 错误 ， 这 些 错误 可 分 为 3 类 : 
和 N 
(2) 是 在 脚本 中 作 了 标记 的 位 置 ， 在 指定 的 脚本 行 暂停 执行 脚本 。 
G) 为 了 能 够 在 第 一 次 调用 脚本 时 暂时 中 断 执行 ， 可 以 在 脚本 的 可 疑 行 之 前 插入 一 条 
语句 。 执 行 到 该 语句 时 ， 脚 本 会 暂停 执行 。 
(4) 自 定义 错误 消息 可 为 两 种 形式 ， 映 射 为 或 映射 为 
(5) 使 用 语句 ， 所 有 的 错误 都 会 被 忽略 ， 程 序 会 自动 执行 下 一 iin). 
(6) 在 ASP 页 顶部 添加 命令 可 声明 事务 脚本 。 


12.5.0 ”选择 题 


(1) 下 面 不 属于 Microsoft 脚本 编辑 器 的 主要 功能 有 ( )o 
A. 编辑 和 修改 服务 器 端 脚本 
B. 在 服务 器 端 脚本 执行 时 ， 打 开 命 令 窗口 监视 变量 、 属 性 或 数组 元 素 的 值 
C. 在 脚本 的 指定 行 设置 断 点 以 暂停 执行 服务 器 端 脚本 
D. 运行 服务 器 端 脚本 时 跟踪 过 程 /函数 
(2) 下 面 关 于 事务 处 理 说 法 不 正确 的 是 (  )。 
A. 事务 是 整体 成 功 或 失败 的 操作 
B. 大 多 数 应 用 程序 只 有 一 些 特 定 的 操作 需要 事务 环境 
C. Transaction Server 决定 事务 是 完全 成 功 还 是 失败 
D. 事务 可 以 跨越 多 个 ASP 页 
(3) 下 面 关 于 事务 提交 说 法 正确 的 是 ( — ). 
A. 调用 SetComplete 方法 意味 着 事务 被 提交 
B. 仅 当 脚本 调用 的 所 有 事务 性 组 件 都 调用 SetComplete 方法 时 ， 事 务 才 提交 
C. 大 多 数 情况 下 脚本 内 部 不 可 缺少 对 SetComplete 方法 的 调用 
D. 提交 事务 时 将 触发 OnAbort 事件 


12.5.8 ”问答 题 


(1) 什么 是 断 点 调试 ， 它 有 什么 作用 ? 
(2) 在 数据 库 的 执行 中 如 何 加 入 On Error Resume Next 错误 处 理 语 句 ? 


第 13 章 综合 实例 


本 章 将 通过 几 个 简单 的 实例 ,综合 本 书 前 面 各 个 章节 所 学 习 的 内 容 ,详细 介绍 利用 ASP 
结合 Access 数据 库 设计 动态 ASP 网 站 模块 的 具体 方法 。 通 过 本 章 的 理论 学 习 和 练习 ， 用 
户 应 了 解 和 掌握 以 下 内 容 : 

。 掌握 用 户 管理 的 创建 方法 
掌握 网 站 留言 板 的 创建 方法 
掌握 网 络 聊天 室 的 创建 方法 
掌握 网 站 流量 统计 的 创建 方法 


13.1 用 户 管 理 


用 户 管理 是 目前 网 站 中 最 常见 的 模块 ， 它 可 以 帮助 站 点 收集 和 分 析 众 多 的 网 络 客户 信 
息 。 例 如 通过 获取 的 用 户 注册 资料 对 访问 网 站 的 人 群 进行 统计 和 归 类 ， 并 以 此 为 依据 为 网 
站 的 发 展 提供 合理 的 规划 。 


13.1.1 功能 介绍 


本 章 所 介绍 的 用 户 管理 系统 的 主 界面 如 图 13-1 左 图 所 示 。 用 户 可 以 在 该 界面 中 输入 全 
录 信息 登录 用 户 管理 界面 , ASP 页 面 将 会 根据 用 户 的 登录 身份 ,打开 相应 的 用 户 管理 页 面 。 
在 系统 管理 员 页 面 中 ， 用户 可 以 根据 需要 执行 “用 户 管理 ”、“ 修 改 密码 ”和 “退出 登录 ” 
命令 (如 图 13-1 右 图 所 示 )， 而 在 普通 用 户 页 面 中 ， 用 户 只 能 执行 “密码 修改 ”和 “退出 登 
录 ” 命令 


用 户 管理 的 主 界面 用 户 管理 界面 (管理 员 ) 
图 13-1 用 户 管理 模块 
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在 系统 管理 员 页 面 中 ， 用 户 可 以 单 击 “ 用 户 管理 ”链接 打开 用 户 列表 页 面 ， 在 该 页 面 
中 系统 管理 员 不 仅 可 以 查看 所 有 的 用 户 和 增加 新 用 户 ， 还 能 够 对 特定 的 用 户 进行 修改 和 删 
除 操作 。 


13.1.2 ”模块 设计 


网 站 的 用 户 管理 模块 需要 具备 安全 性 、 有 效 性 ， 合 法 性 等 多 方面 的 性 能 ， 主 要 包括 如 
图 13-2 所 示 的 用 户 登 录 页 面 、 系 统管 理 界面 、 普 通用 户 管理 界面 、 管 理 员 退出 登录 、 密 
码 修改 页 面 、 用 户 管理 界面 、 添 加 普通 用 户 、 修 改善 通用 户 、 删 除 普通 用 户 、 修 改 用 户 密 
码 页 面 和 普通 用 户 退 出 登录 等 模块 。 


管理 员 身份 登录 普通 用 户 身份 登录 


普通 用 户 管理 


管理 员 管理 普通 用 户 
图 13-2 用 户 管理 模块 的 结构 


1. 页 面 文件 设计 


从 用 户 管理 模块 的 结构 可 以 看 出 ， 该 模块 主要 由 以 下 几 个 页 面 文件 组 成 。 

© Chkwd.asp 文件 : 该 文件 要 求 用 户 输入 用 户 名 、 密 码 和 验证 码 ， 登录 用 户 管理 系统 。 

o Index.asp KH: 该 页 面 是 用 户 管理 系统 的 主页 面 (如 图 13-3 所 示 ), 可 以 根据 登录 用 
户 的 权限 显示 不 同 的 操作 链接 ， 如 图 13-4 所 示 。 

e UserListasp 页 面 : 所 有 用 户 名 称 的 显示 页 面 ， 如 图 13-5 所 示 ， 系 统管 理 员 可 以 在 
该 页 面 中 修改 或 删除 系统 中 的 普通 用 户 。 
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图 13-3 Index.asp 页 面 图 13-4 用 户 登录 后 的 页 面 


e UserAdd.asp WH: 在 该 页 面 中 ， 系 统管 理 员 可 以 添加 新 的 普通 用 户 ， 如 图 13-6 
所 示 。 
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图 13-5 UserList.asp 页 面 图 13-6 UserAdd.asp 页 面 


e UserEditasp WH: 在 该 页 面 中 ， 系 统管 理 员 可 以 修改 普通 用 户 的 基本 信息 ， 如 图 
13-7 所 示 。 

© UserSave.asp 文件 : 该 文件 完成 用 户 添加 和 用 户 信息 修改 时 的 数据 保存 工作 。 

© UserDelasp KM: 该 页 面 完成 用 户 的 删除 。 

e PwdChange.asp 页 面 : 该 页 面 可 以 完成 用 户 密码 的 修改 ， 如 图 13-8 所 示 。 

e SavePwd.asp 页 面 : 该 页 面 完成 用 户 新 密码 在 数据 库 中 的 保存 。 

e Logoutasp HH: 该 页 面 是 用 户 退 出 登录 页 面 。 

e Connasp 文件 (公用 文件 ): 该 文件 是 数据 库 连 接 文件 。 

e Md5.asp 文件 (公用 文件 ): 该 文件 完成 用 户 密码 的 加 密 。 

o procedure.asp 文件 (公用 文件 ): 该 文件 中 包含 邮件 地 址 格式 确认 和 用 户 名 是 否 在 数 
据 库 中 已 存在 这 两 个 过 程 。 
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图 13-7 UserEdit.asp 页 面 图 13-8 PwdChange.asp 页 面 


注意 : 

在 用 户 管理 系统 中 ， 除 了 以 上 所 介绍 的 几 个 主要 文件 以 外 ， 还 有 Functionasp. 
Safecode.asp、Canvas.asp 和 Font.asp 等 页 面 文件 。 这 些 文件 完成 用 户 登录 时 验证 码 的 生成 
与 显示 。 


2. 数据 库 设计 


本 章 实例 采用 Access 数据 库 。 由 模块 结构 可 以 看 出 , 用 户 管理 模块 中 只 需要 使 用 一 个 
Users 数据 表 即 可 ， 用 来 存储 用 户 的 基本 信息 ， 例 如 登录 的 普通 用 户 名 、 密 码 、 用 户 姓名 
和 用 户 资料 (电子 邮箱 地 址 ) 等 ， 如 表 13-1 所 示 。 


表 13-1_Users 数据 表 的 结构 
字 ER 
User ID 
User Name 
User Pwd 


Name 


Email 


13.1.3 ”实例 操作 


本 节 将 根据 本 章 第 13.1.2 所 介绍 的 系统 结构 ， 通 过 实例 介绍 创建 一 个 用 户 管理 系统 的 
方法 。 用 户 在 进行 实例 操作 之 前 ， 应 结合 本 书 第 1.2 节 和 第 1.3 节 所 介绍 的 方法 在 本 地 计 
算 机 上 构建 一 个 ASP 应 用 程序 的 开发 环境 。 
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1. 创建 数据 库 
下 面 将 以 表 13-1 所 示 的 数据 库 结构 为 基础 , 为 用 户 管理 系统 创建 一 个 数据 库 UserMan。 


【练习 13-1] Æ CInetpubwwwroot 文件 夹 中 创建 一 个 名 为 UserMan 的 数据 库 文 件 ， 
然后 按照 表 13-1 所 示 的 内 容 在 数据 库 中 创建 数据 表 Users。 

(1) 选择 “开始 ”|“ 程 序 ”| Microsoft Office| Access 2003 命令 ， 启 动 Access 2003 数据 
库 ， 然 后 选择 “文件 ” |“ 新建 ”命令 ， 打 开 “ 新 建文 件 ” 对 话 框 。 

(2) 单 击 “ 空 数据 库 ” 按 钮 ， 在 打开 的 “文件 新 建 数据 库 ” 对 话 框 的 “文件 名 ”文本 
框 中 输入 UserMan. 

(3) 单 击 “ 创 建 ”按钮 ， 在 打开 的 Access 2003 的 工作 界面 的 工作 区 域 中 选择 “对 象 ” 
列表 框 中 的 “ 表 ” 选 项 ， 然 后 在 对 话 框 右 侧 的 选项 区 域 中 双击 “使 用 设计 器 创建 表 ” 选 项 
打开 数据 表 “ 表 ”的 设计 检视 窗口 。 

(4) 设置 数据 表 中 字段 的 结构 。 在 “ 表 ” 的 设计 检视 窗口 的 “字段 名 称 ” 列 的 第 一 个 
单元 格 中 输入 User ID， 在 其 后 的 “数据 类 型 ”下 拉 列 表 中 选择 “自动 编号 ”选项 ， 在 “说 
明 ” 列 的 第 一 个 单元 格 中 输入 对 表格 字段 的 描述 文本 。 

(5) 根据 表 13-1 所 示 的 内 容 ， 参 考 步骤 (4) 的 操作 ， 在 “ 表 ” 的 设计 检视 窗口 中 设置 
User Name. User Pwd. Name 和 Email 字段 。 

(6) 右 击 User ID 字段 ， 在 弹出 的 快捷 菜单 中 选择 “主键 ”命令 ， 为 User ID 字段 前 
添加 大 标 志 ， 将 该 字段 设置 为 主键 。 

(7) 完成 以 上 操作 后 选择 “文件 ” |“ 保存 ”命令 ， 在 打开 的 “另存 为 ”对 话 框 的 “将 表 另 
存 为 ”文本 框 中 输入 Users， 单 击 “ 确 定 ”按钮 保存 数据 表 ， 完 成 后 的 效果 如 图 13-9 所 示 。 

(8) Æ Access 的 工作 区 域 中 双击 Users 表 将 其 打开 ， 并 在 数据 表 中 输入 如 图 13-10 所 


[£y 


图 13-9 3 Users 图 13-10 PwdChange.asp Ji ifii 
(9) 选择 “文件 ”|“ 保 存 ” 命 令 ， 保 存 数 据 表 Users， 然 后 关闭 Access 数据 表 。 
2. 创建 数据 库 连 接 文件 
完成 数据 库 的 创建 工作 后 , 用户 可 以 参考 下 面 练习 所 介绍 的 方法 ， 创 建 ASP 网 页 数据 
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库 连接 文件 Conn.asp。 


【练习 13-2】 创 建 数 据 库 连接 文件 Conn.asp， 连 接 数 据 库 UserMan。 
(1) 创建 数据 库 连 接 文件 Conn.asp， 其 代码 如 下 所 示 : 


<% 

"Dim databasename,conn,ConStr 

databasename="UserMan.mdb" 

ConStr-"Provider-Microsoft.Jet. OLEDB.4.0:Data Source=" & Server.MapPath(databasename) 
Set connserver.createobject("adodb.connection") 

conn.open ConStr 

%> 


(2) 将 Conn.asp 文件 保存 至 C:\Inetpubvwwwroot 文件 夹 中 。 
3. 设置 密码 加 密 文件 


完成 Conn.asp 文件 的 创建 工作 后 , 用 户 可 以 参考 下 面 实例 的 方法 创建 用 户 管理 系统 的 
密码 加 密 文 件 MP5.asp。 该 文件 采用 MP5(Message Digest Algorithm 5) 数 据 加 密 算法 ， 对 用 
户 保 存在 网 站 数据 库 中 的 信息 进行 加 密 。 


【练习 13-3】 创 建 用 户 管理 系统 的 密码 加 密 文件 MP5.asp。 
(1) 创建 密码 加 密 文 件 MP5.asp， 其 代码 如 下 所 示 : 


<% 

Private Const BITS TO A BYTE- 8 
Private Const BYTES TO A WORD =4 
Private Const BITS TO A WORD - 32 
Private m lOnBits(30) 

Private m I2Power(30) 

Private Function LShIft(IValue, iShIftBits) 
If iShIftBits = 0 Then 

LShIft = lValue 

Exit Function 

ElseIf iShIftBits = 31 Then 

IfIValue And 1 Then 

LShIf = &H80000000 

Else 

LShIf = 0 

End If 

Exit Function 

ElseIf iShIftBits < 0 Or iShIftBits > 31 Then 
Err.Raise 6 

End If 

If (IValue And m I2Power(31-iShIftBits)) Then 
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LShIf = ((IValue And m IOnBits(31-(iShIftBits + 1))) * m I2Power(iShIftBits)) Or &H80000000 
Else 
LShIft = ((IValue And m IOnBits(31-iShIftBits)) * m I2Power(iShIftBits)) 
End If 
End Function 
Private Function RShIft(IValue, iShIftBits) 
IfiShIftBits = 0 Then 
RShIft = IValue 
Exit Function 
Elself iShIftBits = 31 Then 
IfIValue And &H80000000 Then 
RShIf = 1 
Else 
RShIft =0 
End If 
Exit Function 
Elself iShIftBits < 0 Or iShIftBits > 31 Then 
Err.Raise 6 
End If 
RShIft = (IValue And &H7FFFFFFE) m I2Power(iShIftBits) 
If (IValue And &H80000000) Then 
RShIft = (RShIft Or (&H40000000 | m I2Power(iShIftBits-1))) 
End If 
End Function 
Private Function RotateLeft(IValue, iShIftBits) 
RotateLeft = LShlIft(IValue, iShIftBits) Or RShIft(IValue, (32-iShIftBits)) 
End Function 
Private Function AddUnsigned(IX, IY) 
Dim IX4 
Dim IY4 
Dim IX8 
Dim 1Y8 
Dim IResult 
1X8 = IX And &H80000000 
1Y8 =1Y And &H80000000 
1X4 = IX And &H40000000 
1Y4-IY And &H40000000 
IResult = (IX And &H3FFFFFFF) + (IY And &H3FFFFFFF) 
If IX4 And IY4 Then 
Result = IResult Xor &H80000000 Xor IX8 Xor IY8 
ElseIf IX4 Or IY4 Then 
If IResult And &H40000000 Then 
Result = IResult Xor &HC0000000 Xor 1X8 Xor IY8 


Else 

lResult = IResult Xor &H40000000 Xor IX8 Xor IY8 
End If 

Else 

Result = IResult Xor IX8 Xor IY8 
End If 

AddUnsigned = IResult 

End Function 

Private Function md5 F(x, y. z) 
mds F - (x And y) Or ((Not x) And z) 
End Function 

Private Function md5 G(x, y. Z) 
md5 G = (x And z) Or (y And (Not z)) 
End Function 

Private Function md5 H(x, y, z) 
mds H - (x Xor y Xor z) 

End Function 

Private Function md$5 I(x. y. Z) 

mds I - (y Xor (x Or (Not z))) 

End Function 

Private Sub md5 FF(a, b, c, d, x, s, ac) 


a = AddUnsigned(a, AddUnsigned(AddUnsigned(mdS F(b. c, d), x), ac)) 


a — RotateLeft(a, s) 
a — AddUnsigned(a, b) 
End Sub 
Private Sub md5 GG(a. b. c, d, x. s, ac) 


a = AddUnsigned(a, AddUnsigned(AddUnsigned(mdS5 G(b. c, d). x). ac)) 


a — RotateLeft(a, s) 
a — AddUnsigned(a, b) 
End Sub 
Private Sub md5 HH(a, b, c. d, x, s. ac) 


a = AddUnsigned(a, AddUnsigned(AddUnsigned(mdS5 H(b. c. d). x). ac)) 


a = RotateLeft(a, s) 
a — AddUnsigned(a, b) 
End Sub 
Private Sub md5 IlI(a. b, c. d, x. s, ac) 


a = AddUnsigned(a, AddUnsigned(AddUnsigned(mdS I(b. c. d). x). ac)) 


a — RotateLeft(a, s) 
a — AddUnsigned(a, b) 
End Sub 
Private Function ConvertToWordArray(sMessage) 
Dim IMessageLength 
Dim INumberOfWords 
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Dim IWordArray() 

Dim IBytePosition 

Dim IByteCount 

Dim IWordCount 

Const MODULUS BITS - 512 
Const CONGRUENT BITS - 448 
IMessageLength = Len(sMessage) 

INumberOfWords = (((IMessageLength + ((MODULUS BITS-CONGRUENT BITS) 
BITS TO A BYTE)) (MODULUS BITS\BITS TO A BYTE)) + 1) * 
(MODULUS BITS'BITS TO A WORD) 

ReDim IWordArray(INumberOfWords-1) 
1BytePosition = 0 

lByteCount = 0 

Do Until IByteCount >= IMessageLength 


IWordCount = IByteCount! BYTES TO A WORD 
IBytePosition = (IByteCount Mod BYTES TO A WORD) * BITS TO A BYTE 
IWordArray(IWordCount) = IWordArray(IWordCount) Or LShIft(Asc(Mid(sMessage, IByteCount + 


1, 1)). IBytePosition) 


IByteCount = IByteCount + 1 


Loop 

IWordCount = lByteCount \ BYTES TO A WORD 

IBytePosition = (IByteCount Mod BYTES TO A WORD) * BITS TO A BYTE 
IWordArray(IWordCount) = IWordArray(IWordCount) Or LShIft(&H80, IBytePosition) 
IWordArray(INumberOfWords-2) = LShIft(IMessageLength, 3) 
IWordArray(INumberOfWords-1) = RShIft(IMessageLength, 29) 
ConvertToWordArray = IWordArray 


End Function 
Private Function WordToHex(lValue) 


Dim IByte 
Dim lCount 
For ICount = 0 To 3 


lByte = RShIft(IValue, ICount * BITS TO A BYTE) And m lOnBits(BITS TO A BYTE-1) 
WordToHex = WordToHex & Right("0" & Hex(IByte). 2) 


Next 


End Function 
Public Function MD5(sMessage) 


m lOnBits(0) = CLng(1) 

m lOnBits(1) = CLng(3) 

m lOnBits(2) = CLng(7) 

m lOnBits(3) = CLng(15) 
m lOnBits(4) = CLng(31) 
m lOnBits(5) = CLng(63) 
m lOnBits(6) = CLng(127) 
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m lOnBits(7) = CLng(255) 

m lOnBits(8) = CLng(511) 

m lOnBits(9) = CLng(1023) 

m lOnBits(10) = CLng(2047) 

m lOnBits(11) = CLng(4095) 

m lOnBits(12) = CLng(8191) 

m IOnBits(13) = CLng(16383) 

m IOnBits(14) = CLng(32767) 

m IOnBits(15) = CLng(65535) 

m lOnBits(16) = CLng(131071) 

m lOnBits(17) = CLng(262143) 

m lOnBits(18) = CLng(524287) 

m lOnBits(19) = CLng(1048575) 

m lOnBits(20) = CLng(2097151) 

m lOnBits(21) = CLng(4194303) 

m lOnBits(22) = CLng(8388607) 

m lOnBits(23) = CLng(16777215) 
m lOnBits(24) = CLng(33554431) 
m lOnBits(25) = CLng(67108863) 
m lOnBits(26) = CLng(134217727) 
m lOnBits(27) = CLng(268435455) 
m lOnBits(28) = CLng(536870911) 
m lOnBits(29) = CLng(1073741823) 
m lOnBits(30) = CLng(2147483647) 


m D2Power(0) = CLng(1) 

m DPower(1) = CLng(2) 

m DPower(2) = CLng(4) 

m ID2Power(3) = CLng(8) 

m I2Power(4) = CLng(16) 

m I2Power(5) = CLng(32) 

m I2Power(6) — CLng(64) 

m ID2Power(7) = CLng(128) 

m I2Power(8) = CLng(256) 

m DPower(9) = CLng(512) 

m DPower(10) = CLng(1024) 
m DPower(11) = CLng(2048) 
m DPower(12) = CLng(4096) 
m DPower(13) = CLng(8192) 
m DPower(14) = CLng(16384) 
m DPower(15) = CLng(32768) 
m DPower(16) — CLng(65536) 
m DPower(17) = CLng(131072) 
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m DPower(18) = CLng(262144) 

m DPower(19) = CLng(524288) 

m DPower(20) = CLng(1048576) 

m DPower(21) = CLng(2097152) 

m DPower(22) = CLng(4194304) 

m I2Power(23) = CLng(8388608) 

m DPower(24) = CLng(16777216) 
m I2Power(25) = CLng(33554432) 
m I2Power(26) = CLng(67108864) 
m DPower(27) = CLng(134217728) 
m DPower(28) = CLng(268435456) 
m I2Power(29) = CLng(536870912) 
m I2Power(30) = CLng(1073741824) 


Dimx 
Dimk 
Dim AA 
Dim BB 
Dim CC 
Dim DD 
Dima 
Dim b 
Dimc 
Dim d 


Const $11 - 7 
Const $12 = 12 
Const $13 = 17 
Const $14 = 22 
Const S21 = 5 
Const S22=9 
Const S23= 14 
Const S24 = 20 
Const S31 = 4 
Const S32= 11 
Const S33= 16 
Const $34 - 23 
Const S41 = 6 
Const $42 = 10 
Const $43 = 15 
Const $44 = 21 
X= ConvertToWordArray(sMessage) 


a = &H67452301 
b = &HEFCDAB89 
c = &H98BADCFE 
d= &H10325476 
For k = 0 To UBound(x) Step 16 
AA =a 
BB=b 
CC=c 
DD=d 


md5s FF a, b, c, d, x(k + 0), S11, &HD76AA478 
md5_FF d, a, b, c, x(k + 1), S12, &HE8C7B756 
más FF c, d, a, b, x(k + 2), $13, &H242070DB 
md5_FF b, c, d, a, x(k + 3), S14, &HCIBDCEEE 
md5_FF a, b, c, d, x(k + 4), S11, &HF57C0FAF 
md5_FF d, a, b, c, x(k + 5), S12, &H4787C62A 
más FF c, d, a, b, x(k + 6), S13, &HA8304613 
md5_FF b, c, d, a, x(k + 7), S14, &HFD469501 
md5_FF a, b, c, d, x(k + 8), S11, &H698098D8 
md5_FF d, a, b, c. x(k + 9), S12, &H8B44F7AF 
más FF c, d, a, b, x(k + 10), $13, &HFFFF5BB1 
mds FF b, c, d, a, x(k + 11), S14, &H895CD7BE 
md5_FF a, b, c, d, x(k + 12), S11, &H6B901122 
md5_FF d, a, b, c, x(k + 13), S12, &HFD987193 
más FF c, d, a, b, x(k + 14), S13, &HA679438E 
más FF b, c, d, a, x(k + 15), S14, &H49B40821 


md5_GG a, b, c, d, x(k + 1), S21, &HF61E2562 
md5_GG d, a, b, c, x(k + 6), S22, &HC040B340 
md5_GG c, d, a, b, x(k + 11), S23, &H265ESASI 
md5_GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA 
md5_GG a, b, c, d, x(k + 5), S21, &HD62F105D 
md5_GG d, a, b, c, x(k + 10), S22, &H2441453 
md5_GG c, d, a, b, x(k + 15), S23, &HD8A1E681 
md5_GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8 
md5 GG a, b, c, d, x(k + 9), S21, &H21E1CDE6 
md5_GG d, a, b, c, x(k + 14), S22, &HC33707D6 
md5_GG c, d, a, b, x(k + 3), S23, &HF4D50D87 
md5_GG b, c, d, a, x(k + 8), S24, &H455A14ED 
md5 GG a, b, c, d, x(k + 13), S21, &HA9E3E905 
md5_GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8 
md5_GG c, d, a, b, x(k + 7), S23, &H676F02D9 
md5_GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A 
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md5 HH a, b, c, d, x(k + 5), S31, &HFFFA3942 
md5 HH d, a, b, c, x(k + 8), S32, &H8771F681 
md5 HH c, d, a, b, x(k + 11), S33, &H6D9D6122 
md5 HH b, c, d, a, x(k + 14), S34, &HFDES380C 
md5 HH a, b, c, d, x(k + 1), S31, &HA4BEEA44 
md5 HH d, a, b, c, x(k + 4), S32, &HABDECFA9 
md5 HH c, d, a, b, x(k + 7), S33, &HFGBB4B60 
md5 HH b, c, d, a, x(k + 10), $34, &HBEBFBC70 
md5 HH a, b, c, d, x(k + 13), S31, &H289B7EC6 
md5 HH d, a, b, c, x(k + 0), $32, &HEAA127FA 
md5 HH c, d, a, b, x(k + 3), S33, &HDAEF3085 
md5 HH b, c, d, a, x(k + 6), $34, &H4881D05 
mdS HH a, b, c, d, x(k + 9), S31, &HD9D4D039 
mdS HH d, a, b, c, x(k + 12), S32, &HEGDB99ES 
mdS HH c, d, a, b, x(k + 15), S33, &HIFA27CF8 
mdS HH b, c, d, a, x(k + 2), $34, &HC4ACS665 


más II a, b, c, d, x(k + 0), S41, &HF4292244 
más II d, a, b, c, x(k + 7), S42, &H432AFF97 
más II c, d, a, b, x(k + 14), $43, &HAB9423A7 
más II b, c, d, a, x(k + 5), S44, &HFC93A039 
más II a, b, c, d, x(k + 12), S41, &H655B59C3 
md5 II d, a, b, c, x(k + 3), S42, &H8FOCCC92 
más II c, d, a, b, x(k + 10), $43, &HFFEFF47D 
más II b, c, d, a, x(k + 1), S44, &H85845DDI 
más II a, b, c, d, x(k + 8), S41, &H6FAS7EA4F 
más II d, a, b, c, x(k + 15), $42, &HFE2CEGEO 
más II c, d, a, b, x(k + 6), S43, &HA3014314 
más II b, c, d, a, x(k + 13), S44, &H4E0811A1 
md5 II a, b, c, d, x(k + 4), S41, &HF7537E82 
md5 II d, a, b, c, x(k + 11), $42, &HBD3AF235 
más II c, d, a, b, x(k + 2), S43, &H2AD7D2BB 
más II b, c, d, a, x(k + 9), S44, &HEB86D391 


a= AddUnsigned(a. AA) 

b= AddUnsigned(b. BB) 

c = AddUnsigned(c. CC) 

d= AddUnsigned(d. DD) 
Next 


'MD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d)) 
MD5-LCase(WordToHex(d) & WordToHex(a)) 


第 13 章 综合 实例 DE 


End Function 
%> 


(2) 将 MP5.asp 保存 至 CMInetpubwwwroot 文件 夹 中 。 
4. 创建 验证 显示 文件 


完成 数据 库 、 数 据 库 连 接 文件 和 用 户 管理 系统 的 密码 加 密 文件 的 创建 后 ， 用 户 可 以 参 
考 下 面 实例 的 操作 , 创建 本 节 实 例 所 需 的 Function.asp、Safecode.asp、Canvas.asp 和 Font.asp 
等 4 个 文件 。 这 些 文 件 可 以 完成 用 户 登录 界面 中 验证 码 图 像 的 生成 与 显示 。 


Q 
G 


【练习 13-4】 创 建 用 于 生成 与 显示 用 户 登 录 界 面 中 验证 码 图 像 的 Function.asp « 
Safecode.asp、Canvas.asp 和 Font.asp 文件 。 
(1) 创建 Function.asp 文件 ， 其 代码 如 下 所 示 : 


) 


x 


«96 
Sub GetSafeCode 
Dim test, Result 
On Error Resume Next 
Set test-Server.CreateObject(" Adodb.Stream") 
Set test- Nothing 
If Err Then 
Dim zNum 
Randomize timer 
zNum = cint(8999*Rnd--1000) 
Session("SafeCode") = zNum 
Result = Session("SafeCode") 
Else 
Result = "<img src-""Safecode.asp"" align-""absmiddle""2" 
End If 
Response.Write Result 
End Sub 
%> 


将 Function.asp 文件 保存 至 C:\Inetpub\Wwwwroot 文件 夹 中 。 
创建 Safecode.asp 文件 ， 其 代码 如 下 所 示 : 


<!--#include file="canvas.asp"--> 
<% 

Dim objCanvas 

Dim PointX.PointY,PointColor 
Dim iTemp 

Dim SafeCode 

Dim R,G.B.cc.kk 

cc=80 
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kk-30 
SafeCode = "" 
Session("SafeCode") = "" 
BGColor = "FFFFFF" 
R = Mid(BGColor,1.2) 
G = Mid(BGColor,3,2) 
B = Mid(BGColor,5,2) 
R = DecHex(R) 
G = DecHex(G) 
B = DecHex(B) 
Set objCanvas = New Canvas 
objCanvas.GlobalColourTable(0) = RGB(255,255,255)' White 
objCanvas.GlobalColourTable(1) = RGB(0.0.0) ' Black 
objCanvas.GlobalColourTable(2) = RGB(255.0,0) ' Red 
objCanvas.GlobalColourTable(3) = RGB(0.255,0) ' Green 
objCanvas.GlobalColourTable(4) = RGB(0,0,255) ' Blue 
objCanvas.GlobalColourTable(5) = RGB(128.0,0) 
objCanvas.GlobalColourTable(6) = RGB(0.128,0) 
objCanvas.GlobalColourTable(7) = RGB(0.0.128) 
objCanvas.GlobalColourTable(8) = RGB(128,128.0) 
objCanvas.GlobalColourTable(9) = RGB(0.128,128) 
objCanvas.GlobalColourTable(10) = RGB(128.0.128) 
objCanvas.GlobalColourTable(11) = RGB(R,G.B) 
objCanvas.BackgroundColourIndex — 11 
objCanvas.Resize cc.kk.false 
Randomize timer 
SafeCode = cint(8999*Rnd--1000) 

For iTemp = 0 To 30 

Randomize timer 

PointX = Int(Rnd * cc) 

PointY = Int(Rnd * kk) 

PointColor = Int(Rnd * 3)+2 


objCanvas.ForegroundColourIndex — PointColor 
objCanvas.Line PointX.PointY PointX.PointY 
next 


objCanvas.ForegroundColourIndex = 1 
objCanvas.Line 1.1.cc.1 
objCanvas.Line 1,kk,1,1 
objCanvas.Line 1.kk.cc.kk 
objCanvas.Line cc.l.cc.kk 
Session("SafeCode") — SafeCode 

dim sc,sk 


Randomize timer 
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sc = cint(24*Rnd) 

sk = cint(11*Rnd) 
objCanvas.DrawTextWE sc,sk.SafeCode 
objCanvas. Write 

Function DecHex (HStr) 

Dim Result 

Dim iL 

Result = 0 

L = Len(Hstr) 

For i = L-1 To 0 Step-1 

Result = Result + (16 ^ i)*GetDecBit(Mid(HStr,i+1,1)) 
Next 

DecHex = Result 

End Function 
Function GetDecBit (HStr) 


Dim Result 
Dim R(16) 
Dimi 
Result = 0 
R(0) = "0" 
R(1)="1" 
R(2) = "2" 
R(3) = "3" 
R(4) = "4" 
R(5)="5" 
R(6) = "6" 
R(7) = "7" 


R(8)= 
R(9) = "9" 
R(10) = "A" 
R(1)- "B" 
R(2)- "c" 
R(13) = "D" 
R(14) = "E" 
R(15) = "F" 
Fori-0 To 15 
if HStr-R(i) Then Result = i : Exit For 
Next 
GetDecBit = Result 
End Function 
%> 


(4) 将 Safecode.asp 文件 保存 至 C Inetpubwwwroot X 4T X P. 
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(5) 创建 Canvas.asp 文件 ， 其 代码 如 下 所 示 : 


<% 

' The font pack is included seperately so custom packs can be used 

%> 

<!--#include file="font.asp"--> 

<% 

dobdokoeoololaleloelokaeloelololololelokoekdeloelokoelolelokoelgelokdelaelobooloelolelolgloloeloleololetok 
kaaa E A SPCanyas TEREE kkk 


ELEEEEEEEEEEEEEEEEEEEEEEEE EE EEEEEEE EEE EEEE EEEE E EEEE EEE EEEE 


Drawing and presentation object for ASP 
Chris Read (aka Centurix/askdaquack/captainscript) 
Thanks to Richard Deeming (www.trinet.co.uk) for improving 
the arc drawing algorithm 
Thanks to Daniel Hasan for bezier curve adjustments 
Thanks to Tony Stefano for his extra font packs 
Updated 23/02/2003 
ASPCanvas home: http://users.bigpond.net.au/mrjolly/ 
dokokokokolokoloolaoldokdokdokoololookookaokeoelollookookorooldoldokdokoroboololooolooloelololololeloe 
This file contains the following classes 
Canvas - Main GIF rendering class 
PixelStack - Used to store an order of pixels 
Point - A single pixel coord 
This file contains the following utility functions 
MakeWord - Convert the value to a big-endian word 
MakeByte - Trim value to an 8 bit value 
Blue - Extract Blue value from RGB 
Green - Extract Green value from RGB 
Red - Extract Red value from RGB 
Low - Retrieve the low 8 bits from the value 
High - Retrieve the high 8 bits from the value 
ShiftLeft - Shift the value left x bits 
ShiftRight - Shift the value right x bits 
This class requires font.asp for text rendering support 
!!!Please read notes.htm for information on using this class!!! 


dokokookokotooololoetelelelolelolotorotoetoteteelelolorororotototototeoololooeretetoeototooleloloooeeleeele 


ASPCanvas Copyright (c) 2002, Chris Read. All rights reserved. 
dokkokooloelokololoelokaoloelokololalolokolokdoloelokaloloolokalokdololololaoloolokaoralololololaolokaolaloe 
Redistribution and use in source form, with or without modification. 

are permitted provided that the following conditions are met: 

* Redistributions of source code must retain the above copyright notice. 

this list of conditions and the following disclaimer. 


* All advertising materials mentioning features or use of this software 
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must display the following acknowledgement: This product includes software 
developed by Chris Read with portions contributed by Richard Deeming, 
Daniel Hasan and Tony Stefano. 


— (参见 本 章 素材 文件 ) 


(6) 将 Canvas.asp 文件 保存 至 C:\Inetpubvwwwroot 文件 夹 中 。 
(7) 创建 Font.asp 文件 ， 其 代码 如 下 所 示 : 


<% 
dobkokolelelokoeloekokdololelokdokaelokeokderalelokgelalelokdeldeloldokdoloelolgelalelokdoloeloleeleeloe 
' Definitions of chars 0-9 
Vekoelokplelokplololeloelokdelolelokolololeloeolgdeloeokgoloelokdoloelokdelgeloelokgdoloelekdeloeoleolee 
' Font and Letter must be defined to work correctly 
Dim Font 
Dim C(178) 
Dim Letter(19) 
Dim TempcColor.Fi 
"for Fi = 0 to 177 
"Randomize 
'TempColor=Int(Rnd * 6) + 5 
'C(Fi) = TempColor 
'next 
dim cd 
Set Font = Server.CreateObject("Scripting.Dictionary") 
Letter(0) = "00000000000000" 
Letter(1) = "00001 1 11100000" 
Letter(2) = "00011111110000" 
Letter(3 0111000111000" 
Letter(4) — "00110000011100" 
Letter(5) — "01110000001100" 
Letter(6) = "01100000001110" 
Letter(7) = "01100000001110" 
Letter(8) — "11100000001110" 
Letter(9) = "11000000001110" 
Letter(10) = "11000000001110" 
Letter(11) = "11100000001110" 
Letter(12) = "11100000001100" 
Letter(13) = "11100000001100" 
Letter(14) = "01100000001 100" 
Letter(15) = "01110000011100" 
Letter(15) = "00111000011000" 
Letter(16) = "00011111110000" 
Letter(17) = "00001111100000" 
Letter(18) = "0000000000000" 
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Font.Add "0".Letter 


Letter(0) = "00000000000000" 
Letter(1) — "00000001110000" 
Letter(2) — "00000001110000" 
Letter(3) — "00000011100000" 
Letter(4) — "00000011000000" 
Letter(5) — "00000011000000" 
Letter(6) — "00000011000000" 
Letter(7) = "00000111000000" 
Letter(8) — "00000111000000" 
Letter(9) — "00000111000000" 
Letter(10) = "00000110000000" 
Letter(11) = "00000110000000" 
Letter(12) = "000001 10000000" 
Letter(13) = "000001 10000000" 
Letter(14) = "000001 10000000" 
Letter(15) = "000001 10000000" 
Letter(15) = "000001 10000000" 
Letter(16) = "000001 10000000" 
Letter(17) = "00000010000000" 
Letter(18) = "00000000000000" 


Font. Add "1",Letter 


Letter(0) = "00000000000000" 
Letter(1) = "00001111110000" 
Letter(2) = "00011111111000" 
Letter(3) = "00111000011100" 
Letter(4) = "01110000011100" 
Letter(5) = "01110000011000" 
Letter(6) = "01100000011000" 
Letter(7) = "000000001 11000" 
Letter(8) = "00000001 110000" 
Letter(9) = "00000001 110000" 
Letter(10) = "0000001 1000000" 
Letter(11) = "000001 11000000" 
Letter(12) = "00001 110000000" 
Letter(13) = "0001 1000000000" 
Letter(14) = "0001 1000000000" 
Letter(15) = "00110000011100" 
Letter(16) = "01101111111100" 
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Letter(17) — "01111111111110" 
Letter(18) — "01111100000000" 
Letter(19) = "00000000000000" 


Font. Add "2",Letter 


Letter(0) = "00000000000000" 
Letter(1) = "00001111111000" 
Letter(2) = "00111111111000" 
Letter(3) = "01110000111100" 
Letter(4) — "01100000011000" 
Letter(5) = "01000000111000" 
Letter(6) = "00000000111000" 
Letter(7) = "00000001 110000" 
Letter(8) = "0000001 1000000" 
Letter(9) = "000001 11110000" 
Letter(10) = "00000100111000" 
Letter(11) = "00000000011100" 
Letter(12) = "0000000001 1100" 
Letter(13) = "0000000001 1100" 
Letter(14) = "0000000001 1100" 
Letter(15) = "0000000001 1000" 
Letter(16) = "11100000111000" 
Letter(17)="11111111110000" 
Letter(18) = "01111111100000" 
Letter(19) = "00000000000000" 


Font.Add "3",Letter 


Letter(0) = "00000000000000" 
Letter(1) = "00000000111000" 
Letter(2) = "00000001 111000" 
Letter(3) = "0000001 1 100000" 
Letter(4) = "00000111011100" 
Letter(5) = "00001110011100" 
Letter(6) = "00001100011000" 
Letter(7) = "00011000111000" 
Letter(8) = "00111000110000" 
Letter(9) = "01110000110000" 
Letter(10) = "01100000110000" 
Letter(11) = "01100000110000" 
Letter(12) = "11000111111110" 
Letter(13) 2 "11111111111100" 
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Letter(14) = "11111111100000" 
Letter(15) — "11100001100000" 
Letter(16) = "00000001110000" 
Letter(17) — "00000000110000" 
Letter(18) — "00000000110000" 
Letter(19) — "00000000100000" 


Font.Add "4".Letter 


Letter(0) = "00000000000000" 
Letter(1) = "00001 100000100" 
Letter(2) = "00011111111110" 
Letter(3) = "00011111111100" 
Letter(4) = "0001 1 110000000" 
Letter(5) = "0001 1000000000" 
Letter(6) = "001 11000000000" 
Letter(7) = "00111000000000" 
Letter(8) = "00111111110000" 
Letter(9) = "00111111111000" 
Letter(10) = "0000000001 1000" 
Letter(11) = "0000000001 1000" 
Letter(12) = "0000000001 1000" 
Letter(13) = "0000000001 1000" 
Letter(14) = "0000000001 1000" 
Letter(15) = "0000000001 1000" 
Letter(16) = "00000001111000" 
Letter(17) = "01111111110000" 
Letter(18) = "00111111000000" 
Letter(19) = "00000000100000" 


Font.Add "5",Letter 


Letter(0) = "00000000000000" 
Letter(1) = "0000001 1 110000" 
Letter(2) = "000001 1 1 100000" 
Letter(3) = "00001 1 10000000" 
Letter(4) = "0001 1 100000000" 
Letter(5) = "001 1 1000000000" 
Letter(6) = "001 10000000000" 
Letter(7) = "00110000000000" 
Letter(8) = "01111111110000" 
Letter(9) = "01111111111000" 
Letter(10) = "01110000011100" 


Letter(11) = "01100000001100" 
Letter(12) — "01100000001 100" 
Letter(13) — "01100000001 100" 
Letter(14) = "01100000001100" 
Letter(15) = "01110000011100" 
Letter(16) = "0011000001 1100" 
Letter(17) = "00111111111000" 
Letter(18) = "00011111110000" 
Letter(19) = "00000000000000" 


Font. Add "6",Letter 


Letter(0) = "00000000000000" 
Letter(1) = "00100111111110" 
Letter(2) = "01111111111100" 
Letter(3) = "01111110011100" 
Letter(4) = "0000000001 1000" 
Letter(5) = "000000001 11000" 
Letter(6) = "00000000110000" 
Letter(7) = "000000001 10000" 
Letter(8) = "00000000110000" 
Letter(9) = "00000001 110000" 
Letter(10) = "00000001 100000" 
Letter(11) = "00000001 100000" 
Letter(12) = "00000001 100000" 
Letter(13) = "00000001 100000" 
Letter(14) = "0000001 1100000" 
Letter(15) = "0000001 1100000" 
Letter(16) = "0000001 1100000" 
Letter(17) = "00000001000000" 
Letter(18) = "00000001000000" 
Letter(19) = "00000000000000" 


Font. Add "7",Letter 


Letter(0) = "00000000000000" 
Letter(1) = "00001111110000" 
Letter(2) = "00011111111000" 
Letter(3) = "0011100001 1000" 
Letter(4) = "0011000001 1000" 
Letter(5) = "01110000011100" 
Letter(6) = "01110000011000" 
Letter(7) = "0011000001 1000" 
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Letter(8) = "00111101111000" 

Letter(9) = "00011111111000" 

Letter(10) = "00111000111100" 
Letter(11) = "01110000001100" 
Letter(12) = "01110000001100" 
Letter(13) = "01100000001110" 
Letter(14) = "01100000001100" 
Letter(15) = "01100000001100" 
Letter(16) = "01110000011100" 
Letter(17) = "00111111111100" 
Letter(18) = "00011111110000" 
Letter(19) = "00000000000000" 


Font.Add "8",Letter 


Letter(0) = "00000000000000" 
Letter(1) = "00011111110000" 
Letter(2) = "00111111111000" 
Letter(3) = "01110000111000" 
Letter(4) = "01110000011100" 
Letter(5) = "01100000001100" 
Letter(6) = "01100000001100" 
Letter(7) = "01100000001100" 
Letter(8) = "01100000001100" 
Letter(9) = "01110000011100" 
Letter(10) = "00111111111100" 
Letter(11) = "00011111111100" 
Letter(12) = "0000000001 1000" 
Letter(13) = "0000000001 1000" 
Letter(14) = "0000000011100" 
Letter(15) = "00000001 1 10000" 
Letter(16) = "0000001 1 100000" 
Letter(17) = "000001 1 1000000" 
Letter(18) = "0001 1 110000000" 
Letter(19) = "00000000000000" 
Font.Add "9".Letter 

%> 


(8) 将 Font.asp 文件 保存 至 C:\Inetpub\wwwroot X fF X t. 
5. 创建 用 户 登 录 文 件 


进入 用 户 管理 系统 时 ， 首 先进 入 到 如 图 13-3 所 示 的 Chkwd.asp 页 面 。 在 Chkwd.asp 页 
面 文件 中 ， 为 了 保证 用 户 登录 后 ， 不 再 重复 显示 登录 窗口 ， 需 要 设置 一 个 Session 变量 
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Passed。 如 果 Session(Passed)=True， 表 示 用 户 已 经 登录 成 功 ; RZ, WMR Session(Passed)= 
False， 表 示 用 户 还 没有 登录 ， 则 显示 用 户 登 录 窗 口 。 


【练习 13-5】 创 建 用 户 管理 系统 的 用 户 登 录 文 件 Chkpwd.asp。 
(1) 创建 用 户 登 录 页 面 文件 Chkpwd.asp， 其 代码 如 下 所 示 : 


<!--#include file = "conn.asp"--> 
<!--#include file = "md5.asp"--> 
<!--#include file = "function.asp"--> 
<% 
' 如 果 尚 未 定义 Passed 对 象 ， 则 将 其 定义 为 False， 表 示 没 有 通过 身份 认证 
if ISEmpty(Session("Passed")) then 
Session("Passed") = False 
End if 
' 如 果 Session("Passed") = False， 表 示 没 有 通过 身份 认证 
if Session("Passed") = False then 
' 读 取 从 表单 传递 过 来 的 身份 数据 
User Name = Trim(Request.form("User Name")) 
User Pwd = Request.form("User Pwd") 


if User Name = "" or User Pwd = "" then 
Errmsg = "请 输入 用 户 名 和 密码 登录 用 户 管理 系统 " 
else 
If not ISNumeric(Request.Form("confirm")) Then 
Response. Write "<script>alert(' 你 输入 的 验证 码 为 非 数 字 ! '):</script>" 
Response.End 
End If 
If (int(Session("SafeCode"))-int(Request.Form("confirm"))) Then 
set rs = server.createobject("adodb.recordset") 
sql = "Select * from users where User Name = "&User Name&"" 
1s.open sql.conn,1.3 
ifrs.EOF then 
Errmsg = "用 户 不 存在 " 
conn.Close 
Set conn = nothing 
else 
if md5(User Pwd)-—rs.Fields("User Pwd") then 
Errmsg = "密码 不 正确 " 
conn.Close 
Set conn - nothing 
else 
Emmsg - "" 
Session("Passed") = True 
Session("User Name") = rs.Fields("User Name") 
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Session("Id") = rs.Fields("Id") 
end if 
end if 
Else 
Emmsg = "验证 码 输入 错误 ! " 
End If 
end if 
end if 
if Not Session("Passed") then 
%> 
<html> 
<head> 
<body bgcolor="teal"text="red"> 
<title> 请 输入 用 户 名 和 密码 登录 用 户 管理 系统 </title> 
</head> 
<body> 
«script language = "VBScript" 
Function ChkFields() 

If document. MyForm.User Name.value 
window.alert(" 请 输入 用 户 名 ! 
return false 

End If 

If document. MyForm.User Pwd.value ="" Then 
window.alert(" 请 输入 密码 ! ") 
return false 

End If 

If document. MyForm.confirm.value = "" Then 
window.alert(" 请 输入 验证 码 ! ") 

Tetum false 

End If 

return true 


Then 


End Function 

</script> 

<p align = "center"><font color = "#0000ff' size = 5 > 用 户 管理 系统 (身份 验证 页 面 )</font></p> 

«p align = "center"><font color = "#800000"> 

<%=Errmsg%> 

</font></p> 

<form method = "post" action ="<%=request.servervariables("PATH INFO")%>" name = "MyForm" 

onsubmit = "return ChkFields()"> 
<center> 
<table border="0" width="40%"> 
<tr> 

<td width-"2796" bgcolor="#C0C0C0" align="center"><font size="2"> 用 户 名 : </font></td> 
«td width="73%"><input type = "text" name = "User Name" size = 20></td> 
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«xu 
<tr> 
<td width-"2796" bgcolor-"£COCOCO" align="center"><font size="2"> 输 入 密码 : </font></td> 
«td width="73%"><input type = "password" name = "User Pwd" size = 20></td> 
</tr> 
<tr> 
<td width="27%" bgcolor="#C0C0C0" align="center"><font size="2"> 验 证 码 : </font></td> 
<td width="73%"><input type = "text" name = "confirm" size = 10><%call 
GetSafeCode()%></td> 
</tr> 
</table> 
<p align = "center"><input type = "submit" value = "提交 " name = "B1">&nbsp:&nbsp: 
<input type = "reset" value = " 重 置 " name = "B2"></p> 
</form> 
<p align = "center"></p> 
</body> 
</html> 
<% 
response.end 
End if 
%> 


(2) 选择 “文件 ”| “另存 为 ”命令 ， 将 上 面 输入 的 代码 以 文件 名 Chkpwd.asp 保存 至 
CAInetpubWwwwroot 文件 夹 中 。 
6. 创建 管理 系统 界面 


完成 以 上 的 一 系列 操作 后 ， 用 户 可 以 参考 下 面 实例 的 操作 创建 用 户 管理 系统 的 主 界面 。 
该 界面 能 够 根据 用 户 不 同 的 权限 显示 不 同 的 系统 界面 。 例 如 ， 当 用 户 以 系统 管理 员 Admin 登 
录 时 , Index.asp 页 面 显示 如 图 13-11 所 示 的 页 面 , 在 该 页 面 中 系统 管理 员 可 以 使 用 “用 户 管理 ”、 
“修改 密码 ”和 “退出 登录 ”等 命令 ， 而 当 用 户 以 普通 用 户 身份 登录 时 ，Index.asp 页 面 则 会 
显示 如 图 所 示 的 页 面 ， 在 该 页 面 中 用 户 只 可 以 使 用 “修改 密码 ”和 “退出 登录 ”命令 。 


EE Ge 
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图 13-11 Admin 登录 后 的 Index.asp 页 面 图 13-12 普通 用 户 登录 成 功 后 的 Index.asp 页 面 
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【练习 13-6】 创 建 用 户 管理 系统 的 管理 主 界面 Index.asp。 
(1) 创建 用 户 管理 系统 的 管理 主 界面 Index.asp， 其 代码 如 下 所 示 : 


<!--#include file= "ChkPwd.asp"--— 
<html> 


<head> 

<title> 用 户 管理 及 用 户 登录 系统 </title> 
</head> 

<body bgcolor="teal"text="red"> 
<body> 


<p align="center"><font size="6"> 用 户 管理 及 用 户 登 录 系 统 </font></p> 
<hr> 
<center> 
«script language = "VBScript" 
Function newwin(url) 
newwin = window.open(url,"newwin","toolbar = no.location = no.directiories = no,status = 
no,menubar = no,scrollbars = yes.resizable = yes,width = 400,height = 380") 
newwin.focus() 
return false 
End Function 
</script> 
<% 
' 如 果 登 录 成 功 ， 则 根据 用 户 类 型 决定 显示 内 容 
if session("Passed") = True then 
Tesponse.write(" 登 录 成 功 ，"&Session("User Name")&". 您 的 权限 可 以 使 用 以 下 操作 
<br><br><br><center>") 
if session("User_Name") = "Admin" then 
Response.write("<a href = UserList.asp> 用 户 管理 </a>| <a href = 
pwdchange.asp?UserId-" &Session("Id")&" onclick = "return newwin(this.href)""> 修 改 密 
码 </a>| <a href = logout.asp> 退 出 登录 </a>") 


else 
response.write("<a href = pwdchange.asp?UserId-" &Session("Id")&" onclick 
newwin(this.href""> 修 改 密码 </a>| <a href = logout.asp> 退 出 登录 </a>") 
endif 
endif 
%> 
</body> 
</html> 


(2) 将 Index.asp 文件 保存 至 CAInetpubwwwroot 文件 夹 中 。 
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T. 创建 用 户 管理 页 面 
用 户 管理 页 面 是 系统 管理 员 Admin 登录 用 户 管理 系统 后 ， 在 如 图 13-11 所 示 的 页 面 中 


单 击 “ 用 户 管理 ”链接 打开 的 页 面 。 在 该 页 面 的 用 户 列表 中 ， 列 出 了 用 户 管理 系统 数据 库 
中 所 有 的 用 户 记录 ， 每 条 记录 包括 用 户 姓 名 、 电 子 邮箱 和 修改 、 删 除 等 操作 。 在 用 户 列 表 
的 下 方 , 还 有 一 个 “添加 用 户 信息 ”链接 ， 系 统管 理 员 可 以 通过 该 链接 进入 添加 用 户 页 面 ， 


如 图 13-13 所 示 。 


单 击 “ 用 户 管理 ”链接 用 户 列表 页 面 
图 13-13 用 户 管理 页 面 


【练习 13-7】 创 建 系统 管理 员 专用 的 用 户 管理 页 面 UserList.asp。 
(1) 创建 用 户 管理 页 面 文件 UserList.asp， 其 代码 如 下 所 示 。 


<!--#include file= "ChkPwd.asp"--> 
<% 
IfSession("User Name") — "Admin" Then ”' 登 录 的 不 是 Admin 
' 给 出 提示 ， 并 返回 前 一 页 
Response. Write "<script>alert(' 您 不 是 系统 管理 员 ， 没 有 此 权限 ! ):history.backO</script>" 
Session("Passed") = False 
Else 
%> 
<html> 
<body bgcolor="teal"text="red"> 
<head> 
<title> 系 统 用 户 管理 </title> 
«script language = "vbscript"> 
Function newwin(url) ' 定 义 newwin 过 程 
' 使 用 window 的 open 方法 打开 一 个 窗口 ， 指 定 窗口 大 小 ， 并 且 大 小 可 变 ， 
"没有 状态 栏 、 地 址 栏 、 菜 单 和 工具 栏 ， 窗 口中 显示 的 内 容 由 URL 指定 
newwin =window.open(urL"newwin","toolbar-no.location=no.directories=no.status=no. menubar-no, 
scrollbars—yes.resizable—yes.width-400.height-380") 
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newwin.focus() 

return false 

End Function 

</script> 
</head> 
<body link = #000080 vlink = #008080> 

<h3></h3> 

<h2 align=center> 用 户 列表 </h2> 

«table width = 90% align = center cellspacing = 1 cellpadding = 2 border-1 bordercolor=#808080 

bordercolordark=#FFFFFF bordercolorlight=#E1FSFF> 
«tr 
<td align=center width=20% bgcolor=#E1F5FF><b> 用 户 名 </b></td> 
<td align=center width=20% bgcolor=#E1F5FF><b> 用 户 姓名 </b></td> 
<td align=center width=20% bgcolor=#E1F5FF><b> 电 子 邮箱 </b></td> 
<td align=center width=20% bgcolor=#E1F5FF><b> 操 作 </b></td> 
</tr> 
<% 
' 定 义 RecordSet 对 象 
Set rs = Server.CreateObject(" ADODB.RecordSet") 
rs.Open "Select * from Users Order by Id",conn,1,3 
rCount = rs.RecordCount 
"循环 显示 所 有 的 用 户 数据 ， 同 时 画 出 表格 
Do While Not rs.EOF 
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<tr> 
<td><%=rs("User Name")%></td> 
<td><%=rs("Name")%></td> 
<td><%=rs("Email")%></td> 
<td align=center><a href=UserEdit.asp?userid=<%=rs("Id")%> onclick="return newwin(this.href)"> 
修改 </a> 
<%lIf rs("User_Name")<>" Admin" Then%> 
<a href=UserDel.asp?userid=<%=rs("Id")%> onclick="return newwin(this.href)"> 删 除 
</a></td> 

<%End If%> 


(2) 将 UserList.asp 文件 保存 至 Ci\InetpubWwwwroot 文 件 夹 中 。 
8. 创建 添加 用 户 页 面 


添加 用 户 页 面 是 管理 员 在 UserList.asp 页 面 中 单 击 “ 添 加 用 户 信息 ”链接 所 打开 的 页 
面 ， 在 该 页 面 中 管理 员 可 以 添加 用 户 记 录 ， 如 图 13-14 所 示 。 


单 击 “添加 用 户 信息 ”链接 添加 用 户 页 面 


图 13-14 ”打开 添加 用 户 页 面 


【练习 13-8】 创 建 添加 用 户 页 面 UserAdd.asp。 
(1) 创建 用 户 管理 系统 的 新 用 户 添加 页 面 文件 UserAdd.asp， 其 代码 如 下 所 示 : 


</form> 
«script language = "VBScript" 


function ChkFields() 

if document.myform.User Name.value = "" Then ' 没 有 输入 用 户 名 
window.alert(" 请 输入 用 户 名 ") "给 出 提示 
myform.User Name.focus() ' 将 “用 户 名 ”文本 框 设 为 输入 焦点 
Teturn false 

End If 

if document.myform.User Name.value.Length <= 6 Then “' 用 户 名 长 度 太 小 
window.alert(" 请 用 户 名 长 度 必须 大 于 2! ") "给 出 提示 
myform.User Name.focus() ' 将 “用 户 名 ”文本 框 设 为 输入 焦点 
return false 

End If 

if document.myform.Pwd.value.Length <= 6 Then ' 密 码 长 度 小 于 6 
window.alert(" 新 密码 长 度 大 于 6") ' 给 出 提示 
myform.User Name.focus() "将 “用 户 名 ”文本 框 设 为 输入 焦点 
Teturn false 

EndIf 

if document.myform.Pwd.value ="" Then "没有 输入 密码 
window.alert(" 请 输入 新 密码 ") "给 出 提示 
myform.User Name.focus() "将 “用 户 名 ”文本 框 设 为 输入 焦点 
return false 

EndIf 


if document.myform.Pwdl.value ="" Then "没有 输入 确认 密码 
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window.alert(" 请 确认 新 密码 7) "给 出 提示 
myform.User Name.focus() "将 “用 户 名 ”文本 框 设 为 输入 焦点 
return false 
End If 
' 两 次 输入 的 密码 不 相同 
if document.myform.Pwd.value <> document.myform.Pwdl.value Then 
window.alert(" 两 次 输入 的 新 密码 必须 相同 ") "给 出 提示 
myform.User Name.focus() "将 “用 户 名 ”文本 框 设 为 输入 焦 


Teturn false 
EndIf 
return true 
End Function 
</script> 
</body> 
</html> 
<% 
End If 
%> 


(2) 将 UserAdd.asp 文件 保存 至 Ci\InetpubWwwwroot X 4F X F. 
9. 创建 修改 用 户 页 面 


修改 用 户 页 面 是 管理 员 在 UserListasp 页 面 中 单 击 “ 修 改 ” 链 接 所 打开 的 页 面 ， 在 该 
所 示 。 


单 击 “ 修 改 ” 链 接 修改 用 户 页 面 
1315 ”打开 修改 用 户 页 面 


【练习 13-9】 创 建 修改 用 户 页 面 UserEdit.asp。 
(1) 创建 用 户 管理 系统 的 修改 用 户 页 面 UserEdit.asp， 其 代码 如 下 所 示 。 
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<!--#include file = "conn.asp"--— 

<% 

If Session("UserName") — "Admin" Then 
Response. Write "<script>alert(' 您 不 是 系统 管理 员 ， 没 有 此 权限 ! ")chistory.back()-/script*" 
Session("Passed") = False 

Else 

%> 

<html> 

<body bgcolor="teal"text="red"> 

<head> 

«meta http-equiv-"Content-Language" content="zh-cn"> 

«meta http-equiv-"Content-Type" content-"text/html; charset-gb2312"^ 

<title> 用 户 修改 </title> 

</head> 

<body> 

<% 

Dim Uid 

Uid = Request.QueryString("UserId") 

sql = "Select * from Users where Id = "&Uid 

"定义 RecordSet 对 象 

Set rs = Server.CreateObject(" ADODB.RecordSet") 

rs.Open sql.conn,1,3 

If rs.EOF Then 
Response. Write ("<h2> 不 存在 此 用 户 名 ! </h2>") 

Else 

%> 

«form method="POST" action="UserSave.asp" name-myform onsubmit-"return ChkField()"> 
<p align="center"> 用 户 基 本 信 
<center> 
«table border="0" width-"371" id="table1"> 


«un 


息 </p> 


«td bgcolor-"£COCOCO" width="97" align="center"><font size="2"> 用 
户 名 :</font></td> 
«td width="260"><%=rs("UserName")%><input type = hidden name = UserID value = 
<%=rs("id")%>></td> 
«nr 
<tr> 
«td bgcolor="#C0C0C0" width="97" align="center"><font size="2"> 用 户 姓 
名 :</font></td> 
<td width="260"><input type=text name=Ename size=20 
value="<%=rs("Ename")%>"></td> 


«n 


«tr 
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«td bgcolor="#C0C0C0" width="97" align="center"><font size="2"> 电 子 邮 
箱 :</font></td> 
<td width="260"><input type=text name=Email size=20 
value="<%=rs("Email")%>"></td> 
</tr> 
</table> 
<p> </p> 
<p> </p> 
<p align="center"><input type="submit" value=" 提 交 " name="B1"><input type="reset" value=" t 
置 " name="B2"></p> 
</form> 
<%End If%> 
</body> 
</html> 
<% 
End If 
%> 


(2) 将 UserEdit.asp 文件 保存 至 C:\Inetpub\wwwroot 文件 夹 中 。 
10. 创建 删除 用 户 文件 


用 户 管理 系统 的 管理 员 在 UserList.asp 页 面 中 单 击 “ 删 除 ” 链 接 可 以 打开 UserDel.asp 
文件 ， 从 数据 库 中 删除 某 条 用 户 记录 。 


【练习 13-10】 创 建 用 于 删除 用 户 记录 的 ASP 文件 UserDel.asp。 
(1) 创建 用 户 管理 系统 的 删除 用 户 页 面 UserDelasp， 其 代码 如 下 所 示 。 


<!--#include file= "conn.asp"--> 

<% 

If Session("User Name") — "Admin" Then 
Response. Write "<script>alert(' 您 不 是 系统 管理 员 ， 没 有 此 权限 ! ):history.backO</script>" 
Session("Passed") = False 

Else 

%> 

<html> 

<head> 

<title> 删 除 用 户 信息 </title> 

</head> 

<body> 

<% 

Dim Uid 

' 读 取 UserId 参数 

Uid=Request.QueryString("UserId") 

Set Drs = Server.CreateObject("ADODB.RecordSet") 
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Drs.Open "Delete from Users where Id = "&Uid,conn.1,3 
Response. Write ("<center><h2> 成 功 删 除 </h2>") 
Response.Write "<a href = UserList.asp> 返 回 </a>" 

%> 

</body> 

</html> 

<% 

End If 

%> 


(2) 选择 “文件 ”| “另存 为 ”命令 ,将 上 面 输入 的 代码 以 文件 名 UserDel.asp 保存 至 
Ci\Inetpub\Wwwwroot 文件 夹 中 。 
11. 创建 修改 用 户 密码 页 面 


修改 用 户 密码 页 面 是 管理 员 和 普通 用 户 修改 用 户 登录 密码 的 页 面 ， 在 该 页 面 中 用 户 可 
以 修改 登录 用 户 管理 系统 的 用 户 密码 ， 如 图 13-16 所 示 。 


单 击 “修改 密码 ”链接 修改 用 户 密码 
图 13-16 打开 修改 用 户 密码 页 面 


【练习 13-11】 创 建 修改 用 户 密码 页 面 PwdChange.asp。 
(1) 创建 用 户 管理 系统 的 用 户 密 码 修改 页 面 PwdChange.asp， 其 代码 如 下 所 示 。 


<!--#include file = "ChkPwd.asp"--> 

<!--#include file = "conn.asp"--> 

<html> 

<body bgcolor="teal"text="red"> 

<head> 

«meta http-equiv-"Content-Language" content="zh-cn"> 

«meta http-equiv-"Content-Type" content-"text/html: charset-gb2312"7 
<title> 密 码 修改 </title> 

«script language="vbscript"> 

Function ChkFields() 
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If Document.myform.Pwd.value.length<6 Then 
alert(" 新 密码 长 度 必 须 大 于 等 于 6! ") 
myform.Pwd.focus() 
return false 

End If 

If Document.myform.Pwdl.value-"" Then 
alert(" 请 确认 新 密码 ! ") 
myform.Pwd.focus() 
return false 

End If 

If Document.myform.Pwd.value— Document.myform.Pwd1.value Then 
alert(" 两 次 输入 的 新 密码 必须 相等 ! n) 
return false 

End If 
return true 

End Function 

</script> 

</head> 

<body> 

<% 

User ID = Request.QueryString("User ID") 

Set rs = server.CreateObject(" ADODB.RecordSet") 

rs.Open "Select * from users where id-"&User ID,conn.1,3 

9o 

<form method="POST" name-"myform" action-"SavePwd.asp?User ID--?6-User ID%>" 

onsubmit-"return ChkField0"> 


<p> «p» 
«p align="center"> 修 改 密码 </p> 
<center> 
«table border="0" width="355" id="table1"> 
<tr> 
<td width="100" bgcolor="#C0C0C0" align="center"><font size="2"> 用 
户 名 :</font></td> 
«td width="241"><%=rs("UserName")%> </td> 
«nr 
«i 
«td width-"100" bgcolor-"£COCOCO" align="center"><font size="2"> 原 始 密码 :</font></td> 
«td width="241"><input type-"password" name="OriPwd" size="20"></td> 
</tr> 
<tr> 
«td width="100" bgcolor="#C0C0C0" align="center"><font size="2"> 新 
密 码 :</font></td> 
<td width="241"><input type="password" name="Pwd" size="20"></td> 
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«td width-"100" bgcolor-"£COCOCO0" align-"center"»-font size="2"> 密 码 确 
认 :</font></td> 
«td width="241"><input type-"password" name-"Pwdl" size="20"></td> 
«nr 
</table> 
<p> </p> 
<p> </p> 
<p align="center"><input type="submit" value=" 提 交 " name="B1"><input type="reset" value=" 重 
置 " name="B2"></p> 
</form> 
<% 
rs.Close 
Set rs = nothing 
%> 
</body> 
</html> 


(2) 将 PwdChange.asp 文件 保存 至 C:\Inetpubvwwwroot RER P. 
12. 创建 用 户 退 出 登录 页 面 


在 Index.asp 页 面 中 ， 单 击 “ 退 出 登录 ”链接 ， 可 以 打开 退出 登录 页 面 Logout.asp， 退 
出 用 户 管理 系统 。 


【练习 13-12】 创 建 退 出 登录 页 面 Logout.asp。 
(1) 创建 用 户 管理 系统 的 退出 登录 页 面 Logout.asp， 其 代码 如 下 所 示 : 
<% 
Session("Passed") = false 
Session("User Name")-"" 


Response.Redirect "index.asp" 
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Q) 将 Logout.asp 文件 保存 至 CMInetpubwwwroot 文件 夹 中 。 
13.1.4 实例 测试 


完成 本 节 实 例 的 操作 后 启动 TE. 浏览 器 ， 在 地 址 栏 输入 http://localhost/index.asp 并 按 下 
Enter 键 显 示 用 户 登 录 界面 。 在 用 户 登 录 界面 中 的 “用 户 名 ”文本 框 中 输入 管理 员 用 户 名 
admin， 在 “输入 密码 ”文本 框 中 输入 管理 员 密 码 admin， 在 “验证 码 ” 文 本 框 中 根据 页 面 
中 的 验证 码 提示 图 片 中 显示 的 数字 输入 验证 码 ( 如 图 13-17 所 示 )。 然 后 单 击 “提交 ”按钮 ， 
打开 如 图 13-18 所 示 的 用 户 管 理 界 面 。 
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图 13-17 用 户 登 录 界 面 


单 击 如 图 13-12 所 示 的 用 户 管 到 


图 13-18 ”用户 管 理 界面 (管理 员 身 份 登录 ) 


界面 中 的 “用 户 管理 ”链接 ， 进 入 如 图 13-19 所 示 的 


用 户 管理 列表 页 面 ， 在 该 页 面 中 用 户 可 以 通过 单 击 页 面 中 具体 用 户 名 称 后 的 “修改 ”链接 


打开 如 图 13-20 所 示 的 用 户 资料 修改 页 面 ， 


可 以 修改 用 户 基本 信息 。 


EN 


全 "日 oTRo-OzRo- "| 


图 13-19 用 户 管理 列表 页 面 图 13-20 用 户 资 料 修改 页 面 


单 击 如 图 13-19 所 示 的 用 户 管理 列表 页 面 中 具体 用 户 名 称 后 的 “删除 ”链接 ， 可 以 将 选 


中 的 普通 用 户 从 用 户 管理 系统 中 删除 


信息 ”链接 ， 可 以 打开 如 图 13-22 所 示 的 添加 用 户 页 面 ， 在 用 户 管理 系统 中 添加 新 上 j^. 


， 如 图 13-21 所 示 。 单 击 用 户 管理 列表 中 的 “添加 用 户 


图 13-21 成功 删除 用 户 


图 13-22 添加 用 户 页 面 
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单 击 如 图 13-18 所 示 的 用 户 管理 界面 中 的 “修改 密码 ”链接 ， 打 开 如 图 13-23 所 示 的 
用 户 密码 修改 页 面 可 以 修改 当前 登录 用 户 的 用 户 登录 密码 。 单 击 如 图 13-18 所 示 的 用 户 管 
理 界 面 中 的 “退出 登录 ”链接 ， 可 以 使 当前 登录 用 户 退 出 登录 ， 并 返回 用 户 管理 系统 主 界 
， 如 图 13-24。 


图 13-23 ”修改 用 户 密码 图 13-24 返回 Index.asp 页 面 
如 果 用 户 在 用 户 登录 界面 中 的 “用 户 名 ”文本 框 中 输入 用 户 名 123， 在 “输入 密码 ” 


文本 框 中 输入 密码 123， 在 “验证 码 ” 文 本 框 中 根据 页 面 中 的 验证 码 提示 图 片 中 显示 的 数 
字 输 入 验证 码 (如 图 13-25 所 示 )。 然 后 单 击 “ 提 交 ” 按 钮 ， 打 开 如 图 13-26 所 示 的 普通 用 户 


图 13-25 输入 普通 用 户 登录 信息 13-26 ”普通 用 户 管理 页 面 


在 如 图 13-26 所 示 的 普通 用 户 管理 页 面 中 ， 可 以 单 击 “ 修 改 密码 ”链接 ， 修 改 普通 用 
户 的 密码 ， 单 击 “ 退 出 登录 ”链接 ， 返 回 Index.asp 页 面 。 


留言 板 是 网 站 中 常见 的 页 面 。 许 多 特定 的 主题 站 点 都 提供 留言 功能 ， 网 站 的 注册 用 户 
在 登录 网 站 后 可 以 在 其 中 发 表 文 章 或 留言 ， 其 他 用 户 则 可 以 针对 这 些 留言 进行 回复 或 发 表 
新 的 话题 。 
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13.2.1 功能 介绍 


本 节 所 介绍 的 留言 板 模块 的 主 界面 如 图 13-27 所 示 。 在 该 界面 中 可 以 看 到 留言 板 中 其 
他 用 户 的 留言 和 留言 板 管理 员 的 回复 内 容 。 单 击 留 言 板 主 界面 中 的 “发 表 留 言 ” 按 钮 ， 还 
可 以 打开 如 图 13-28 所 示 的 留言 发 表 页 面 ， 发 表 新 的 留言 。 


图 13-27 留言 板 主 界面 图 13-28 ”发 表 留 言 页 面 
留言 板 管理 员 可 以 单 击 留言 板 主 界面 右 下 角 的 “管理 留言 板 ” 按 钮 图 ， 打 开 留 言 板 登录 
页 面 登录 留言 板 管理 页 面 。 在 留言 板 管理 页 面 中 , 留言 板 管理 员 可 以 根据 需要 管理 留言 板 内 容 。 
13.2.2 ”模块 设计 


在 网 站 留言 板 模块 中 ， 用 户 不 需要 注册 就 能 够 发 表 留 言 、 查 看 留言 。 系 统 可 以 有 多 个 管理 
员 ， 每 个 管理 员 可 以 设置 不 同 的 回复 内 容 、 颜 色 和 回复 人 提示 ， 其 主要 结构 如 图 13-29 所 示 。 
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图 13-29 留言 板 模块 的 结构 
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8 
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1. 页 面 文件 设计 

由 留言 板 模块 的 结构 可 以 看 出 ， 该 模板 主要 由 以 下 几 个 页 面 文件 组 成 。 

e Index.asp 页 面 : 该 页 面 为 留言 板 查看 页 面 ， 也 是 模块 登录 的 默认 页 面 ， 如 图 13-30 
所 示 。 

* Book write.asp 页 面 : 该 页 面 为 留言 发 表 页 面 。 

e Admin login.asp HWH: 该 页 面 为 管理 员 登 录 页 面 ， 用 户 可 以 在 页 面 中 输入 用 户 名 
和 密码 ， 如 图 13-31 所 示 。 


图 13-30 Index.asp 页 面 图 13-31 Admin login.asp 页 


* Admin main.asp 页 面 :该 页 面 为 留言 板 管理 页 面 , 留言 板 管理 员 可 以 在 页 面 中 删除 、 
修改 和 回复 留言 ， 如 图 13-32 所 示 。 

* Admin setasp 文件 : 该 文件 为 留言 板 模块 参数 设置 页 面 ， 可 以 设置 留言 板 网 站 名 称 、 
留言 主题 最 大 长 度 、 留 言 内 容 最 大 长 度 、 每 页 显示 的 留言 条 数 等 ， 如 图 13-33 所 示 。 
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13-32 Admin _main asp 页 面 13-33 Admin setasp 页 面 


* Admin logoutasp 文件 : 该 文件 为 管理 员 退 出 登录 文件 。 
e Connasp 文件 : 该 文件 为 数据 库 连 接 文件 。 
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2. 数据 库 设计 
本 章 实例 所 创建 的 网 站 留言 板 模块 需要 使 用 如 表 13-2 所 示 的 Web 数据 表 保 存留 言 板 
设置 数据 , 使 用 表 13-3 所 示 的 Note_ Admin 数据 表 保存 系统 管理 员 的 信息 数据 ,使 用 表 13-4 
所 示 的 Note Comment 数据 表 保 存留 言 板 的 留言 信息 
Web 数据 表 包 含 网 站 名 称 、 留 言 主题 最 大 长 度 、 "T 内 容 最 大 长 度 、 留 言 用 户 是 否 必 
须 填写 电子 邮箱 、 留 言 页 面 每 页 显示 留言 的 条 数 和 显示 留言 的 表格 间距 等 数据 。 


表 13-2 Web 数据 表 的 结构 


字 R 说 了 明 
ID 编号 
SiteName 网 站 名 称 
SubjectMaxLength 留言 主题 最 大 长 度 
MaxLength 留言 内 容 最 大 长 度 
Mail 留言 用 户 是 否 必 填 电 子 邮 箱 
Distance 显示 留言 的 表格 间距 
Counts 每 页 显示 的 留言 条 数 


Note Admin 数据 表 包 含 系统 管理 的 名 称 、 登 录 密码 以 及 回复 留言 的 颜色 和 回复 留言 提 
示 等 数据 。 


表 13-3 d 数据 表 的 结构 


* m * m 


D Tto 编号 

Aii | ”一 | 用户 名 
ReplyColor 回复 留言 颜色 
IsRepl | — | mamana 


Note Comment 数据 表 包 含 留言 用 户 姓名 、 电 子 邮 箱 、 主 页 、IP 地 址 、 其 他 联系 方式 
以 及 留言 主题 、 内 容 、 提 交 时 间 等 数据 。 


表 13-4 Note Comment 数据 表 的 结构 


留言 用 户 的 姓名 
留言 用 户 的 电子 邮箱 
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(BR) 


URL 留言 用 户 的 主页 

IP fi cr REP F3 IP 地 址 
Communication 留言 用 户 的 其 他 联系 方式 
Subject 留言 主题 


留言 内 容 
提交 留言 的 时 间 
留言 的 回复 内 容 
回复 留言 的 时 间 
回复 留言 的 管理 员 名 称 


Comment 
PostDate 日 期 时 间 
Repl 


ReplyDate 日 期 时 间 
文本 


ReplyName 


13.23 ”实例 操作 


下 面 将 结合 本 章 第 13.2.2 节 所 介绍 的 留言 板 模块 结构 ， 通 过 实例 介绍 创建 一 个 网 站 留 
言 板 的 方法 。 用 户 在 进行 实例 操作 之 前 ， 应 结合 本 书 第 1.2 节 和 第 1.3 节 所 介绍 的 方法 在 
本 地 计算 机 上 构建 一 个 ASP 应 用 程序 的 开发 环境 。 

1. 创建 数据 库 

下 面 将 根据 表 13-2 所 示 的 数据 库 结构 ， 为 留言 板 模 块 创建 数据 库 。 

【练习 13-13】 根 据 表 13-2 一 表 13-4 所 示 的 内 容 创 建 数 据 表 Web. Note Admin 和 


Note Comment. 

(1) 选择 “开始 ”|“ 程 序 ”| Microsoft Office| Access 2003 命令 ， 启 动 Access 2003 数据 
库 ， 然 后 选择 “文件 ”|“ 新 建 ”命令 ， 打 开 “ 新 建文 件 ” 对 话 框 。 

Q) 单 击 “ 空 数据 库 ” 按 钮 ， 在 打开 的 “文件 新 建 数据 库 ” 对 话 框 的 “文件 名 ”文本 
框 中 输入 NOTES.mdb。 

G) 单 击 “ 创 建 ”按钮 ， 在 打开 的 Access 2003 的 工作 界面 的 工作 区 域 中 选择 “对 象 ” 
列表 框 中 的 “ 表 ” 选 项 ， 然 后 在 对 话 框 右 侧 的 选项 区 域 中 双击 “使 用 设计 器 创建 表 ” 选 项 
打开 数据 表 的 设计 检视 窗口 。 

(4) 根据 表 13-2 所 示 的 内 容 ， 创 建 数据 表 Web， 完 成 后 的 效果 如 图 13-34 所 示 。 

(5) 根据 表 13-3 所 示 的 内 容 , 创建 数据 表 Note. Admin, 完成 后 的 效果 如 图 13-35 所 示 。 

(6) 根据 表 13-4 所 示 的 内 容 ， 创 建 数据 表 Note Comment， 完 成 后 的 效果 如 图 13-36 
所 示 。 

(7) 完成 以 上 操作 后 NOTES 数据 库 如 图 13-37 所 示 .。 这 时 , 用 户 可 以 关闭 Access 2003 
数据 库 。 
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图 13-34 创建 数据 表 Web 
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图 13-36 ”创建 数据 表 Note Comment 图 13-37 NOTES 数据 库 


2. 创建 数据 库 连接 文件 

完成 数据 库 的 创建 工作 后 ,用户 可 以 参考 下 面 练 习 所 介绍 的 方法 , 创建 ASP 网 页 数据 
库 连接 文件 Conn.asp。 

【练习 13-14】 创 建 数 据 库 连接 文件 Conn.asp， 连 接 数据 库 NOTES. 

(1) 创建 数据 库 链接 文件 Conn.asp， 其 代码 如 下 所 示 : 


<% 


Dim database.conn.connstr 

Response.Buffer-True 

database — "notes.mdb" 

Set conn-server.createobject(" ADODB.Connection") 

connstr-"provider-Microsoft.Jet. OLEDB.4.0:Data Source-" & Server. MapPath(database) 
conn.Open connstr 

Set WBrs = Server.CreateObject(" ADODB.RecordSet") 

WBrs.Open "Select * from web".conn.1.3 

sitename — WBrs("SiteName") 

maxlength — WBrs("MaxLength") 
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mail = WBrs("Mail") 

distance = WBrs("Distance") 

counts = WBrs("Counts") 

subjectmaxlength = WBrs("SubjectMaxLength") 
WBrs.Close 

Set WBrs = nothing 

%> 


(2) 将 Conn.asp 文件 保存 至 C:\Inetpubvwwwroot X fF X P. 
3. 创建 留言 查看 页 面 
留言 查看 页 面 (Index.asp) 是 用 户 进 入 留言 板 模块 后 首先 打开 的 页 面 。 在 该 页 面 中 ， 将 


显示 留言 者 的 姓名 、IP 地 址 ， 留 言 信息 的 主题 、 内 容 和 管理 员 回 复 等 信息 ， 如 图 13-38 
所 示 。 
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图 13-38 留言 查看 页 面 


【练习 13-15】 创 建 网 站 留言 板 留 言 查看 页 面 。 
(1) Æ CANInetpubwwwroot 文件 天 中 创建 一 个 名 称 IMAGES 的 子 文件 夹 ， 然 后 将 本 节 
实例 所 需 的 图 片 文件 复制 至 该 文件 夹 中 。 
(2) 创建 留言 查看 页 面 Index.asp， 其 代码 如 下 所 示 : 


<!--#include file="conn.asp"--> 

<HIML><HEAD> 

<TITLE><%=sitename%></TITLE> 

<link rel="stylesheet" href-"book.css" type="text/css"> 

</HEAD> 

<body background=images/bg.gif topmargin="0" leftmargin="0"> 

<table width="760" border=0 cellspacing=0 cellpadding=0 bgcolor="#FFFFFF" align=center 
class="grayline"> 

<tr><td><img border="0" src="IMAGES/TOPS.gif" width=758></td></tr> 
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</table> 


<center> 


«table width="760" border=0 cellspacing=0 cellpadding=0 align=center bgcolor="#FFFFFF" 


<tr> 


class="grayline"> 


«td align=center height=25 colspan-"2" width="680"> 
<a href-book write.asp»-img border-0 src=images/write.gif title=" 我 要 写 留言 "></a> 


&nbsp:&nbsp:&nbsp:&nbsp: 


<a hre 人 index.asp><img border-0 src=images/read.gif title=" 留 言 本 首页 "></a> 


</td> 
«tr» 
<tr> 
<td> 


<% 


set rs=Server.CreateObject("ADODB.RecordSet") ' 创 建 RecordSet 对 象 
rs.open "select * from note comment order by id desc".conn,1.3 
"从 数据 库 中 读 取 留 言 ， 并 保存 在 rs 中 


if rs.eof and rs.bof then 


response.redirect "book write.asp" 


else 


vo 


if counts-0 or counts-"" then counts-10 


rs.pageSize — counts 

allpages = rs.pageCount 

page = Request("page") 

If not isNumeric(page) then page-1 

if isEmpty(page) or Cint(page) < 1 then 

page-1 

elseif Cint(page) >= allPages then 

page = allPages 

end if 

rs.AbsolutePage = page 

Do While Not rs.eof 
UserName-rs("Name") 
Comments-rs("Comment") 
Reply-rs("Reply") 
Usermail-rs("Email") 
url-rs("Url") 
replyname - rs("ReplyName") 
I=I+1 
' 留 言 序 号 


' 不 存在 留言 记录 

' 转 到 撰写 留言 页 面 
' 存 在 记录 

' 每 页 留言 条 数 

' 每 页 记录 数 

' 总 页 数 

' 从 浏览 器 取得 当前 页 
'page 不 是 数字 

'page 为 空 或 小 于 1 


'page 值 大 于 总 页 数 


' 转 到 某 页 头 部 


' 用 户 名 

' 内 容 

' 回 复 

' 邮 件 

"主页 
"回复 人 姓名 
Tes 


temp-RS.RecordCount-(page-1)*rs.pageSize-T-1 


«table cellSpacing-"1" cellPadding-"3" width-"680" ali; 


"center" bgColor-"2000000" 
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border="0"> 
<tr> 
<td vAlign="top" width="25%" bgColor="#f7f7f7" rowSpan="2" align=center> 
<table border=0 width=80%><tr><td align=center></td></tr> 
<tr><td>[NO.<%=temp%>]<br> 
姓名 : <%=UserName%><br> 
KÄ: <%=left(rs("ip"),(len(rs("ip")-1)+"*"%><br> 
邮件 : <a href=mailto:<%=Usermail%>><img src=images/mail.gif border=0></a><br> 
主页 : <a href="<%=URL%>" target=' blank><img src=images/home.gif border=0></a><br><br> 
<%=rs("Postdate")%></td></tr> 
</table> 
</td> 
«td width="75%" height="20" bgColor="#ffffff"> 主 题 : <font 
color=blue><%=rs("subject")%></font> </td> 
</tr> 
<tr> 
«td vAlign-"top" bgColor="#ebebeb" width='75%' height=120 onMouseOver-"bgColor-'£FFffff" 
onMouseOut="bgColor='#ebebeb"> 
<%=Comments%> 
<br><br> 
«oif rs("Reply")<>"" then 
Set RCrs = Server.CreateObject(" ADODB.RecordSet 
RCrs.Open "Select * from note Admin where Admin- 
%> 


&replyname,conn,1,3 


«table cellSpacing="1" cellPadding-"3" width="90%" align="center" bgColor-"darkgray" 
border="0"> 
<tr><td vAlign="top" bgColor="#f7f7f7"> 
«font color=<%=RCrs("replycolor")%>><%=RCrs("isreply")%>: <br><%=Reply%></font> 
</td></tr></table><br> 
<% 
RCrs.Close 
Set RCrs = nothing 
end if%> 
</td> 
«nr 
</table> 
«table cellSpacing-"0" cellPadding="0" width-"680" align="center" bgColor="#FFFFFF" 
border-"0" height = "<%=distance%>"> 
<TR><TD height=8> </TD></TR></TABLE> 
<% 
counts = counts-1 "每 页 显示 条 数 减 1 
ITS.Imovenext "指向 下 一 条 记录 
if rs.eof then exit do "已 经 到 最 后 一 条 记录 则 跳出 
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loop "结束 循环 
"End If 
%> 
</td></tr> 
<tr><td height=50 valign=top align = center> 
<% 
"显示 总 留言 条 数 
response.write "<br>&nbsp:&nbsp:&nbsp:&nbsp:&nbsp:&nbsp:&nbsp: 总 计 留 言 
"&RS.RecordCount&" 条 " 


if page = 1 then "到达 第 一 页 
response.write "<font color=darkgray> 首 页 前 页 </font>" 
else ' 不 是 第 一 页 


'Tequest.ServerVariable("script_name") 获 得 程序 的 虚拟 路 径 
response.write "<a href="&request.ServerVariables("script_name")&"?page=1> 首 页 </a><a 
href="&request.ServerVariables("script_name")&"?page="&page-1&"> 前 页 </a>" 
endif 


if page = allpages then "到达 最 后 一 页 
response.write "<font color=darkgray> 下 页 末 页 </font>" 

else ' 不 是 最 后 一 页 
"建立 超级 链接 


response.write " <a href-"&request.ServerVariables("script name")&"?page-" &page--1&"» f Ji 
</a> <a href-"&request.ServerVariables("script name")&"?page-"&allpages&"-K Ji «/a»" 

end if 

"显示 留言 当前 的 页 数 信息 

response.write ”第 "&page&" 页 共 "&allpages&" 页 " 

%> 

</td></tr> 

</table> 

<table width="760" border=0 cellspacing=0 cellpadding=0 bgcolor="#FFFFFF" align=center 

class="grayline"> 
<tr><td> </td></tr> 
<tr><td width=30 height=37 background="IMAGES/down.gif'><a href=#top><img 
src=images/up.gif border=0></a></td> 

<td height=37 background="IMAGES/down.gif'>&nbsp:&nbsp:Copyright &copy: 2007 版 权 所 有 
</td> 

<td width=30 height=37 background="IMAGES/down.gif'><a href-admin login.asp title=" 管 理 留 

言 本 "><img src=images/admin.gif border=0></a></td> 

</tr> 

</table> 

</center> 

</body> 

</html> 

<% 
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End If 
conn.CLose "关闭 数据 库 
Set conn - nothing 

%> 


(3) 选择 “文件 ”| “另存 为 ”命令 ， 将 上 面 输入 的 代码 以 文件 名 Index.asp 保存 至 
CAInetpubwwwroot 文件 夹 中 。 
4. 创建 留言 发 表 页 面 


本 节 实 例 所 介绍 的 留言 发 表 页 面 book write.asp 允许 留言 发 布 者 在 无 需 登录 留言 板 的 
情况 下 ， 也 能 发 布 留言 ， 如 图 13-39 所 示 。 
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en 


单 击 “ 发 表 留言 ”按钮 留言 发 表 页 面 
图 13-39 打开 留言 发 表 页 面 


【练习 13-16】 创 建 留 言 板 模块 的 留言 发 表 页 面 。 
(1) 创建 留言 发 表 页 面 book_write.asp， 其 代码 如 下 所 示 : 


<!--#include file="conn.asp"--> 

<% 

if request("send")="ok" then ' 用 户 提 交 留 言 
username-trim(request.form("username")) 
' 读 取 表 单传 递 过 来 的 姓名 数据 ，Trim 函数 去 掉 字 符 串 的 前 导 和 后 续 空 格 
usermail-trim(request.form("usermail")) "' 读 取 表 单传 递 过 来 的 用 户 邮箱 数据 

"没有 填写 用 户 姓名 或 留言 主题 或 留言 内 容 

if username-"" or request.form("Comments")-"" or request.form("subject") — "" then 

' 给 出 提示 ， 并 返回 到 前 一 页 

response.write "<script>alert( 填 写 资料 不 完整 ， 请 检查 后 重新 输入 ! '):history.back(:</script>" 
response.end 

endif 

if mailyes=0 then "邮箱 为 必 填 时 检查 邮箱 是 否 合 ; 
"邮箱 地 址 中 存在 字符 “.” 或 “@”,， 或 邮箱 长 度 小 于 10 或 大 于 50 都 是 非法 邮箱 地 址 
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if Instr(usermail.".")-—0 or Instr(usermail."(2")——0 or len(usermail)«10 or len(usermail)>50 
then 
' 给 出 提示 并 返回 到 前 一 页 
response.write "<script>alert(' 您 输入 的 电子 邮件 地 址 格式 不 正确 ， 请 检查 后 重新 输入 ! 
');history.back():</script>" 
response.end 
endif 
end if 
"留言 主题 长 度 大 于 要 求 的 长 度 
if len(request.form("subject"))>subjectmaxlength then 
' 给 出 提示 并 返回 到 前 一 页 
response.write "<script>alert(' 留 言 主题 太 长 了 ， 请 不 要 超过 "&subjectmaxlength&" 个 字符 ! 
"):history.back():</script>" 
response.end 
end if 
"留言 内 容 长 度 大 于 要 求 的 长 度 
if len(request.form("Comments"))*maxlength then 
' 给 出 提示 并 返回 到 前 一 页 
response.write "<script>alert(' 留 言 内 容 太 长 了 ， 请 不 要 超过 "&maxlength&" 个 字符 ! 


"ykhistory.back():«/script^" 
response.end 
end if 
set rs-Server.CreateObject(" ADODB.RecordSet") "将 留言 保存 到 数据 库 中 
sql-"select * from note comment" "从 数据 库 中 查询 留言 记录 
rs.open sql.conn,1,3 "执行 查询 操作 ， 并 将 结果 保存 在 rs 中 
rs.Addnew ' 添 加 一 条 记录 
rs("Name")-Request.Form("username") "姓名 
rs("Comment")-Request.Form("comments") "留言 内 容 
rs("Email")-Request.Form("usermail") "邮箱 地 址 
rs("url")-Request.Form("url") Ex 


rs("Communication")-Request.Form("communication") ' 其 他 联系 方式 
rs("IP")=Request.serverVariables("REMOTE_ADDR") 'IP 地 址 


Ts("PostDate") = now() ' 留 言 提交 时 间 
Ts("Subject") = Request.Form("subject") "ui 

1s.Update EIU 

rs.close "关闭 RecordSet 对 象 
set rs-nothing 


"提交 成 功 ， 给 出 提示 ， 并 返回 到 留言 查看 界面 
response.write "<script>alert(' 留 言 提交 成 功 ， 单 击 “ 确 定 ” 返 回 留言 列表 ! 
"):location.href="index.asp':</script>" 
response.end 
endif 
%> 
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*HTML--HEAD- 
<TITLE><%=sitename%></TITLE> 
«meta http-equiv-"Content-Type" content-"text/html: charset=gb2312"> 
«meta name-"description" content="<%=sitename%>"> 
«meta name-"keywords" content="<%=sitename%>"> 
<link rel="stylesheet" href-"book.css" type="text/css"> 
</HEAD> 
<body background=images/bg.gif topmargin="0" leftmargin="0"> 
<table width="760" border=0 cellspacing=0 cellpadding=0 bgcolor="#FFFFFF" align=center 
class="grayline"> 
<tr><td><img border="0" src="IMAGES/TOPS.gif" width=758></td></tr> 
</table> 
<center> 
<table width="760" border=0 cellspacing=0 cellpadding=0 align=center bgcolor="#FFFFFF" 
class="grayline"> 
<tr><td align=center height=50> 
<img border=0 src=images/write.gif> &nbsp:&nbsp:&nbsp:&nbsp; <a href=index.asp><img 
border=0 src-images/read.gif title=" 我 要 看 留言 "></a> 
</td></tr> 
<tr><td> 
<form action=book_write.asp method=post name="book"> 
<table cellSpacing=" orderColorDark="#ffffff' cellPadding="4" width="680" align="center" 
bgColor="#000000" borderColorLight="#000000" border="0"> 
<tr bgColor="#ebebeb"> 
«td  width="20%" align=right> 您 的 姓名 : </td> 
«td ><input type=text name-"UserName" size-"30" maxlength=16> 
«font color="#FF0000">* 必 须 填写 </font></td> 
«tr» 
«tr bgColor="#ebebeb"> 
«td — width-"2096" align=right> 留 言 主题 ，</td> 
«td ><input type-text name-"subject" size="30" maxlength=50> 
<font color="#FF0000">* 必 须 填写 (<%=subjectmaxlength%> 字 以 内 )</font></td> 
«lu 
«tr bgColor-"Zebebeb"- 
<td — width-"2095" align=right> 您 的 邮箱 : </td> 
<td ><input type=text name-"UserMail" size="30" maxlength=50> 
«^if mail=0 then%><font color="#FF0000">* 必 须 填写 </font><%end if%></td> 
</tr> 
«tr bgColor="#ebebeb"> 
«td  width="20%" align=right> 您 的 网 站 : </td> 
<td><input type-text value="http://" name-"url" size-"30" maxlength=100></td> 
xu 
«tr bgColor="#ebebeb"> 
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<td — width="20%" align=right> 其 它 联系 方式 : </td> 
<td><input type=text value="" name-"communication" size-"30" maxlength=100> (如 QQ、 
MSN 等 )</td> 
xu 
«tr bgColor="#ebebeb"> 
«td — width-"2096" align=right> 留 言 内 容 : <br><font color-red»(-?6-maxlength9o»^r UJ 
内 )</font></td> 
<td><textarea name-"Comments" rows="7" cols-"66" style="overflow:auto;"></textarea></td> 
<tr bgColor="#ebebeb"> 
<td colSpan="2"><input type="submit" value=" 提 交 留 言 " name="Submit"> 
<input type="reset" value=" 重 新 填写 " name="Submit2"><input type=hidden name=send 
value=ok></td> 
«tr» 
</table> 
</form> 
</table> 
<table width="760" border=0 cellspacing=0 cellpadding=0 bgcolor="#FFFFFF" align=center 
class="grayline"> 
<tr><td> </td></tr> 
<tr><td width=30 height=37 background="IMAGES/down.gif"><a href-£top»-img 
src=images/up.gif border=0></a></td> 
<td height=37 background="IMAGES/down.gif">&nbsp:&nbsp:Copyright &copy: 2007 版 权 所 有 
</td> 
<td width=30 height=37 background="IMAGES/down.gif"><a href-admin login.asp title=" 管 理 留 
言 本 "><img src=images/admin.gif border=0></a></td> 
<I> 
</table> 
</center> 
</body> 
</html> 
<% 
conn.CLose 
Set conn = nothing 
%> 


(2) 将 book write.asp 文件 保存 至 CMInetpubwwwroot X fF X P. 
5. 创建 管理 员 登 录 页 面 


网 站 留言 板 模块 的 管理 员 登 录 页 面 admin. login.asp 允许 留言 板 管理 员 登 录 留 言 板 管理 
界面 ， 如 图 13-40 所 示 。 


单 击 “ 管 理 留言 本 ”按钮 
图 13-40 打开 管理 员 登 录 页 面 


【练习 13-17】 创 建 留 言 板 模块 的 管理 员 登 录 页 面 。 
(1) 创建 留言 板 模块 管理 员 登 录 页 面 admin login.asp， 其 代码 如 下 所 示 。 


<!--#include file = "conn.asp"--> 

<% 

if request.QueryString("act")-"login" then 

管理 员 登 录 

user = Request.Form("username") 

"' 读 取 从 表单 传递 过 来 的 用 户 名 数据 

pass = Request.Form("password") 

' 读 取 从 表单 传递 过 来 的 密码 数据 

Set NArs-Server.CreateObject(" Adodb.RecordSet") 

"££ Sr. RecordSet 对 象 

' 从 数据 库 中 查找 Admin (7j user, pwd 值 为 pass 的 记录 

sql="Select * from note admin where Admin-"" &user&" and pwd="&pass&"" 

执行 查询 操作 ， 并 将 结果 保存 在 NArs 中 
NArs.open sql.conn,1.1 
If not(NArs.bof and NArs.eof) Then 

"存在 满足 条 件 的 记录 ， 则 登录 成 功 
Session("login") = "ok" 

' 将 Session 变量 login 置 为 ok 
Session("user") = NArs("Admin") 

' 将 当前 登录 管理 员 的 用 户 名 赋 给 Session 变量 user 
Session("id") = NArs("id") 

"将 当前 登录 管理 员 的 id 赋 给 Session. 变量 id 
Response.Redirect "admin main.asp?action-main" 
"页 面 转 到 留言 管理 界面 

Else 
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' 不 存在 满足 条 件 的 记录 ， 给 出 提示 ， 返 回 到 前 一 页 


Response.Write("<script>alert(' 管 理 员 用 户 名 称 或 密码 输入 有 误 ， 请 检查 后 重新 输入 ! 


"):history.back()</script>") 

Response.End 

End If 

NArs.Close 
"XH] RecordSet 对 象 

Set NArs- nothing 
End If 
%> 
<HTML><HEAD> 
<TITLE><%=sitename%></TITLE> 
<title> 管 理 员 登 录 </title> 


<link rel="stylesheet" href-"book.css" type="text/css"> 


«script language="VBScript"> 
function check() 

If booklogin.username.value-"" Then 
alert(" 用 户 名 不 能 为 空 !") 
booklogin.username.focus() 
return false 

End If 

If booklogin.password.value-"" Then 
alert(" 密 码 不 能 为 空 !") 
booklogin.password.focus() 
return false 

End If 

return true 

End Function 

</script> 

</HEAD> 

<% 

if session("login")<>"ok" then 
%> 


' 检 查 是 否 输入 用 户 名 、 密 码 

“用 户 名 ”文本 框 的 值 为 空 

' 给 出 提示 

' 将 “用 户 名 ”文本 框 置 为 输入 焦点 


'" “密码 ”文本 框 的 值 为 空 
' 给 出 提示 
' 将 “密码 ”文本 框 置 为 输入 的 焦点 


«body background=images/bg.gif topmargin="0" leftmargin="0"> 
<table width="760" border=0 cellspacing=0 cellpadding=0 bgcolor="#FFFFFF" align=center 
class="grayline"> 
<tr><td><img border="0" src="IMAGES/TOPS.gif" width=758></td></tr> 
</table> 
<center> 
<table width="760" border=0 cellspacing=0 cellpadding=0 align=center bgcolor="#FFFFFF" 
class="grayline"> 
<tr><td> 


<br> 
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«form action-"admin login.asp?act-login" method-post name-booklogin onsubmit — "return 
check()"> 
<table width="300" border="1" cellpadding="3" bordercolor="#333333" style="border-collapse: 
collapse;" align=center> 
<tr> 
«th colspan = 2> 管 理 员 登 录 </th> 
<tr><td align=center> 用 户 名 </td><td><input type="text" name-"username" value-"" title=" 请 填写 
用 户 名 "></td></tr> 

<tr><td align=center> 密 &nbsp:&nbsp: 码 </td><td><input type="password" name-"password" 
value="" title=" 请 填写 登录 密码 "></td></tr> 

<tr><td colspan=2 align=center><input type="submit" value=" 管 理 登 录 "><input type="hidden" 
name-"login" value="check"></td></tr> 

</table> 

</form> 

<table width="760" border=0 cellspacing=0 cellpadding=0 bgcolor="#FFFFFF" align=center 
class="grayline"> 

<tr><td> </td></tr> 

<tr><td width=30 height=37 background="IMAGES/down.gif"><a href=#top><img 
src=images/up.gif border=0></a></td> 

<td height=37 background="IMAGES/down.gif">&nbsp:&nbsp:Copyright &copy: 2007 版 权 所 有 

</td> 
<td width=30 height=37 background="IMAGES/down.gif"><a href-admin login.asp title=" 管 理 留 
言 本 "><img src=images/admin.gif border=0></a></td> 

«Ir» 

</table> 

</td></tr> 

</table> 

</center> 

</body> 

<% 

End If 

%> 

</html> 


(2) 将 admin login.asp 文件 保存 至 C\Inetpub\wwwroot 文件 夫 中 。 

6. 创建 留言 板 管理 页 面 

留言 板 管理 页 面 admin_main.asp 是 留言 板 管理 员 在 admin login.asp 页 面 中 成 功 登 录 后 
所 进入 的 页 面 。 该 页 面 不 仅 包含 一 个 分 页 的 用 户 留 言 列表 , 以 每 页 10 条 的 数量 显示 留言 板 
系统 中 的 留言 ， 而 且 还 具备 多 个 管理 员 操 作 按 钮 ， 可 以 允许 留言 板 管理 员 进 行 相应 的 管理 
操作 ， 如 图 13-41 所 示 。 
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图 13-41 管理 留言 板 


【练习 13-18】 创 建 留 言 板 模板 的 留言 板 管理 页 面 。 
(1) 创建 留言 板 管理 页 面 文件 admin main.asp， 其 代码 如 下 所 示 : 


<!--#include file = "conn.asp"--> 
<% 
"function lleft(content,lef) 
for le-1 to len(content) 
if asc(mid(content.le,1))«0 then 
lef-lef-2 
else 
lef-lef-1 
end if 
if lef<=0 then exit for 
next 
Ileft-left(content.le) 
'end function 
%> 
<HTML> 
<HEAD> 
<TITLE><%=sitename%></TITLE> 
<link rel="stylesheet" href-"book.css" type="text/css"> 
<script language="JavaScript"> 
function CheckAll(form) 
t 
for (var i=0:i<form.elements.length:i++) 
{ 
var e = form.elements[i]: 
if (e.name != 'chkall) e.checked = form.chkall.checked: 
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$ 
) 
</script> 
</HEAD> 
<body background=images/bg.gif topmargin="0" leftmargin="0"> 
<center> 
<table width="760" border=0 cellspacing=0 cellpadding=0 bgcolor="#FFFFFF" align=center 
class=" grayline"> 
<tr><td><img border="0" src="IMAGES/TOPS.gif' width=758></td></tr> 
</table> 
</center> 
<table width="760" border=0 cellspacing=0 cellpadding=0 align=center bgcolor="#FFFFFF" 
class=" grayline"> 
<tr><td align=center height=50> 
<a href-admin main.asp»-img border=0 src=images/admin_home.gif title=" 管 理 首 页 "></a> 
&nbsp:&nbsp:&nbsp; 
<a href-admin set.asp»-img border=0 src=images/admin_setup.gif title=" 管 理 选项 设置 "></a> 
&nbsp:&nbsp;&nbsp; 
<a href=admin_logout.asp><img border-0 src=images/loginout.gif title=" 管 理 结束 后 ， 一 定 要 
点 击 这 里 "></a> 
</td></tr> 
<% 
action=request.QueryString("action") 
if action="main" or action = "" then ' 管 理 首页 
vo 
<tr><td align=center> 
«table width="630" border-"1" cellpadding- 
collapse" 


" bordercolor-"4333333" style-"border-collapse: 


«form name-bookform action-admin main.asp method-post^ 
«tr 
«td align=center width=18> 选 </td> 
«td align=center width=41 height=15> 姓 名 </td> 
<td align=center width=150> 主 题 </td> 
<td align=center width=155> 内 容 ( 编 辑 与 回复 )</td> 
<td align=center width=128> 日 期 </td> 
<td align=center width=74> 状 态 </td> 


«hr 
<% 
dim rs,msg per page "定义 变量 
dim sql 
msg per page - 10 "每 页 显示 记录 数 
Set rs-Server.CreateObject(" ADODB.Recordset") "创建 RecordSet 对 象 


sql="select * from note comment order by id desc" 
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"从 数据 库 中 查询 所 有 记录 并 按照 id 降序 排列 


end if 


rs.pagesize = msg per page "每 页 显示 记录 数 
rs.open sql,conn,1,3 "执行 查询 操作 
if rs.eof and rs.bof then "数据库 中 不 存在 记录 
response.write "<tr><td colspan=6 align=center><BR> 和 暂时 没有 留言 
<BR><BR></td></tr>" 
if not (rs.eof and rs.bof) then ' 检 测 记录 集 是 否 为 空 
totalrec = RS.RecordCount "总 记录 条 数 
if rs.recordcount mod msg per page = 0 then 
"计算 总 页 数 ，recordcount 为 数据 的 总 记录 数 
n-rs.recordcountunsg per page n 为 总 页 数 
else 
n-rs.recordcountimsg per page-l 为 总 页 数 
end if 
currentpage — request("page") 'currentpage 为 当前 页 
If currentpage — "" then 'currentpage 值 存在 


currentpage = cint(currentpage) 
if currentpage < 1 then 


currentpage — 1 
end if 


if err.number — 0 then 


err.clear 
currentpage — 1 
end if 

else 
currentpage — 1 
End if 


'cint 函数 将 currentpage 转换 为 整数 
'currentpage 值 小 于 1 


"产生 某 种 错误 


' 清 除 错误 信息 


'currentpage 值 为 空 


' 当 前 页 大 于 总 页 数 


ifcurrentpage*msg per page > totalrec and not((currentpage-1)*msg per page < 


totalrec)then 
currentPage-1 
end if 


rs.absolutepage = currentpage 


rowcount = rs.pagesize 


'absolutepage 设置 指针 指向 某 页 开头 
'pagesize 设置 每 一 页 的 数据 记录 数 


dimi 

dim k 

Do while not rs.eof and rowcount»0 "循环 显示 所 有 的 记录 
content=rs("Comment") ' 留 言 内 容 
subject = rs("Subject") ' 留 言 主题 


reply=rs("reply") ' 回 复 内 容 
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UserName-rs("Name") "留言 者 姓名 

"使 用 Response 对 象 的 write 方法 在 网 页 上 显示 复 选 框 、 留 言 者 姓名 、 

"留言 主题 、 留 言 内 容 、 留 言 日 期 和 留言 状态 

Response.write "<tr><td align=center><input type-'checkbox' 
value-"&rs("ID")&" name=id>" 

Response.write "</td><td>"&UserName&"</td><td>" 

"Response.write lleft(server.htmlencode(subject),50) 


Response.write subject 

"建立 到 管理 员 回复 留言 的 超级 链接 

Response.write "</td><td><a href-'admin main.asp?action-reply &id-" &rs("ID")& "" 

"Response.write lIleft(server.htmlencode(content),50) 

Response.write content 

Response.write "</a></td><td align=center>" &rs("Postdate")&"</td><td 
align=center>" 


if Isnull(Reply) then "没有 留言 回复 
response.write "<font color=red> 新 留言 </font>" 
else ' 管 理 员 已 经 回复 留言 
response.write "已 回复 " 
end if 
rowcount-rowcount-1 "显示 一 条 记录 后 ， 将 每 页 未 显示 的 记录 数 减 1 
rs.movenext "指向 下 一 条 记录 
loop 
end if 
1s.close XH] RecordSet 对 象 
set rs-nothing 


%> 
<tr><td colspan=6 width="616"><input type="checkbox" name=chkall 
onclick-"CheckAll(this.form)"» 全 选 
<input type="submit" name-"action" value=" 删 除 " onclick="{if(confirm(' 该 操作 不 可 恢 
复 ! mm 确实 删除 选 定 的 留言 ? )){this.documentProdlistsubmitOxretum true:) return false:}"> 
</td></tr></form></table> 
</td></tr> 
<tr><td> 
<% 
call listPages() "调用 listPages 过 程 显示 记录 数目 信息 、 页 数 信息 
%> 
</td></tr> 
<%end if 
让 request("action")=" 删 除 " then "删除 操作 
delid=replace(request.form("id"),"","") 
获得 要 删除 记录 的 id, Replace 过 程 将 获得 的 id 字符 串 中 的 "用 空 字符 "替换 
call delfeedback() 
end if 
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if request("action")-"reply" then 
id-request("id") 
call detailfeedback() 

end if 
'end if 
分 页 
sub listPages() 

ifn <= 1 then exit sub. 
%> 

共 <%=totalrec%> 条 留言 
<%if currentpage = 1 then%> 
<font color=darkgray> 首 页 前 页 </font> 

<%else%> 

<a href}="<%=request.ServerVariables("script_name")%>?page=1"> 
首页 </font></a> <a href="<%=request. Server Variables("script_name")%>?page=<%=cumrentpage-1%>" >Hi {</a> 
<%end if%> 

<%if currentpage = n then%> 

<font color=darkgray > 下 页 末 页 </font> 

<%else%> 

<a href="<%=request.ServerVariables("script_name")%>?page=<%=currentpage+1%>"> F {</a> 

<a href}="<%=request.ServerVariables("script_name")%>?page=<%=n%>"> X Ui </a> 
<%end if%> 
第 <%=currentpage%> 页 共 <%=n%> 页 


<% 

end sub 

sub delfeedback() "删除 留言 

if delid-"" or isnull(delid) then 要 删除 的 记录 id 为 空 
' 则 给 出 提示 
response.write "<script>alert(' 操 作 失 败 ， 没 有 选择 合适 参数 ， 请 单 击 “ 确 定 ” 返 回 ! 
"):</script>" 

response.redirect "admin main.asp" "返回 到 留言 管理 界面 


Tesponse.end 
else id 存在 


' 执 行 数 据 库 中 的 删除 操作 ， 删 除数 据 库 中 id 值 在 delid 数组 中 的 记录 
conn.Execute("delete * from note comment where ID in ("&delid&")") 
"删除 成 功 ， 给 出 提示 
response.write "<script>alert(' 留 言 删 除 成 功 ， 请 单 击 “确定 ”返回 ! script?" 
response.redirect "admin main.asp" "返回 到 留言 管理 界面 
Tesponse.end 

end if 

end sub 

sub detailfeedback() "留言 回复 
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if id="" then ' 要 回复 的 留言 id WE 
' 给 出 提示 
response.write "<script>alert(' 无 此 留言 编号 ， 请 单 击 “确定 ”返回 ! "):</script>" 
response.redirect "admin main.asp" "返回 到 留言 管理 界面 
response.end 

end if 

"修改 留言 资料 

if request("send")-"ok" then "提交 留言 回复 内 容 
set rs-server.createobject("adodb.recordset") "创建 RecordSet 对 象 


sql = "select * from note comment where ID-"&id 


' 从 数据 库 中 查询 id 值 为 id 的 记录 


rs.open sql,conn,1,3 "执行 查询 ， 并 将 结果 保存 在 rs 中 
if not (rs.eof and rs.bof) then "存在 满足 条 件 的 记录 
rs("comment")-request.form("comments") “' 留 言 内 容 


' 回 复 的 留言 内 容 ，replace 函数 是 用 <BR> 替换 回复 内 容 中 的 vbCRLF 字符 
rs("Reply")-replace(request.form("Reply"),vbCRLF,"-BR-") 


rs("ReplyDate") = Now() ' 回 复 时 间 
rs("ReplyName") = Session("user") ' 回 复 留言 的 管理 员 姓 名 
rs.update ' 更 新 数据 库 

end if 

1s.close XH] RecordSet 对 象 


' 修 改 或 回复 成 功 ， 给 出 提示 
response.write "<script>alert(' 留 言 已 经 修改 或 回复 成 功 ， 请 单 击 “ 确 定 ” 返 回 ! </script>" 
response.redirect "admin main.asp" ' 返 回 到 留言 管理 界面 
response.end 
endif 
' 显 示 详细 资料 
set rs = server.createobject("adodb.recordset") 
sql = "select * from note_comment where ID="&id 
rs.open sql.conn,1.1 
if rs.eof and rs.bof then 
response.write "<script>alert(' 无 此 留言 ， 请 单 击 “ 确 定 ” 返 回 ! ");</script>" 
response.redirect "admin main.asp" 
response.end 
end if 
if not (rs.eof and rs.bof) then 
Comments-replace(rs("Comment")," -BR-".vbCRLF) 
if rs("reply")—"" then 
reply-replace(rs("Reply")." -BR-".vbCRLF) 
else 
reply-"" 
end if 
%> 
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<tr><td align = center> 
«table width="600" border-"1" cellpadding-"3" bordercolor-"2333333" style-"border-collapse: 
collapse" 
«form name-"reply" method="post" action-'admin main.asp?action=reply&id=<%=id%>'> 
<tr><TD align="right" width=20% height=15> 留 言 者 IP 地 址 
</TD><td><%=rs("IP")%></td></tr> 
<tr><TD align="right" width=20%> 留 言 日 期 </TD><td><%=rs("PostDate")%></td></tr> 
<tr><TD align="right" width=20%> 留 言 人 姓名 
</TD><td><%=rs("Name")%>&nbsp;</td></tr> 
<tr><TD align="right" width=20%> 留 言 邮箱 
</TD><td><%=rs("EMail")%>&nbsp;</td></tr> 
<tr><TD align="right" width=20%> 留 言 网 址 </TD><td><%=rs("url")%>&nbsp;</td></tr> 
<tr><TD align="right" width=20%> 其 它 联系 方式 
</TD><td><%=rs("communication")%>&nbsp:</td></tr> 
<tr><TD align="right" width=20%> 留 言 主题 
</TD><td><%=rs("subject")%>&nbsp:</td></tr> 
"right" width=20%> 内 容 </TD><td><textarea style="overflow:auto" 
name-"comments" cols="60" rows="8"><%=Comments%></textarea></td></tr> 
<tr><TD align="right" width=20% valign=top> 回 复 内 容 </TD><td><textarea 
style-"overflow:auto" name-"Reply" cols="60" rows="8"><%=reply%></textarea>&nbsp:</td></t> 
<TR><TD align="right" width-2096»&nbsp:-INPUT TYPE-"hidden" name-send 
value=ok></TD><TD> 
<input type-"submit" name-"action" value-" 提 交 "></TD></TR> 
</form></TABLE></td><tr> 


<tr><TD align: 


<% 
End If 
rs.Close 
Set rs = nothing 
End Sub 
%> 
«table width="760" border=0 cellspacing-0 cellpadding-0 bgcolor="#FFFFFF" align-center 
class-"grayline"— 
<tr><td> </td></tr> 
<tr><td width=30 height=37 background="IMAGES/down.gif"><a href=#top><img 
src=images/up.gif border=0></a></td> 
<td height=37 background="IMAGES/down.gif'>&nbsp:&nbsp:Copyright &copy: 2007 版 权 所 有 
</td> 
<td width=30 height=37 background="IMAGES/down.gif'><a href-admin login.asp title=" 管 理 留 
言 本 "><img src=images/admin.gif border=0></a></td> 
</tr> 
</table> 
</body> 
<% 
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conn.CLose 
Set conn - nothing 
%> 


(2) 将 admin main.asp 文件 保存 至 Ci\Inetpub\wwwroot X 4F X F. 

7. 创建 留言 设置 页 面 

留言 设置 页 面 admin setasp 是 留言 板 管理 员 设 置 留言 板 中 每 条 留言 的 参数 的 页 面 。 在 该 
页 面 中 , 留言 板 管理 员 可 以 设置 留言 的 主题 长 度 、 内 容 长 度 以 及 数量 等 参数 , 如 图 13-42 所 示 。 


GO- « 一 EE ^ G ie 


单 击 “管理 选项 ”按钮 留言 设置 页 面 
图 13-42 打开 留言 设置 页 面 


【练习 13-19】 创 建 留言 板 的 留言 设置 页 面 。 
(1) 创建 留言 板 设置 页 面 文件 admin set.asp， 其 代码 如 下 所 示 : 
<!--#include file="conn.asp"--> 
<% 
If Request.QueryString("action")="setup" then 
call setup() 
Else 
If Session("id")——"" Then 
Set rs — server.createobject(" ADODB.RecordSet") 
1s.Open "Select * from note Admin where id-"&Session("id").conn.1.3 
96 
<HIML><HEAD> 
<TITLE><%=sitename%></TITLE> 
<link rel="stylesheet" href-"book.css" type="text/css"> 
</HEAD> 
<body background=images/bg.gif topmargin="0" leftmargin="0"> 
<table width="760" border=0 cellspacing=0 cellpadding=0 bgcolor="#FFFFFF" align=center 
class="grayline"> 
<tr><td><img border-"0" src="IMAGES/TOPS.gif" width=758></td></tr> 
</table> 
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<center> 
<table width="760" border=0 cellspacing=0 cellpadding=0 align=center bgcolor="#FFFFFF" 
class="grayline"> 
<tr><td align=center height=50> 
<a href-admin main.asp><img border=0 src=images/admin home.gif title=" 管 理 首 页 "></a> 
&nbsp:&nbsp:&nbsp: 
<a href-admin set.asp?action-setup»-img border-0 src=images/admin_setup.gif title=" 管 理 选 项 设 
置 "></a> &nbsp:&nbsp:&nbsp: 
<a href-admin logout.asp?action=loginout><img border-0 src=images/loginout.gif title=" 管 理 结 束 
后 ， 一 定 要 点 击 这 里 "></a> 
</td></tr> 
<tr><td align=center> 
<br> 
</td></tr> 
<tr><td> 
</center> 
<center> 
<table width="594" border="1" cellpadding="3" bordercolor="#333333" style="border-collapse: 
collapse"> 
«form name-book action-admin set.asp?action-setup method=post> 
<tr><td width=141 align=right> 网 站 名 称 &nbsp: &nbsp: </td><td width="429"><input 
type-text name-sitename value="<%=sitename%>" maxlength=20></td></tr> 
<tr><td width=141 align=right> 管 理 员 姓名 &nbsp: &nbsp: </td><td width="429"><input 
type-text name-admin value="<%=rs("admin")%>" maxlength=16></td></tr> 
<tr><td width=141 align=right> 管 理 员 密码 &nbsp: &nbsp: </td><td width="429"><input 
type-password name-pwd value-"" maxlength=16> [ 若 不 修改 密码 ， 请 留 空 ]</td></tr> 
<tr><td width=141 align=right> 留 言 主题 长 度 &nbsp: &nbsp: </td><td width="429"><input 
type=text name=subjectmaxlength value="<%=subjectmaxlength%>" maxlength=3> [留言 主 
题 的 最 多 字符 数 ， 例 如 20]</td></tr> 
<tr><td width=141 align=right> 留 言 内 容 长 度 &nbsp: &nbsp: </td><td width="429"><input 
type=text name=maxlength value="<%=maxlength%>" maxlength=3> [留言 内 容 的 最 多 字符 
数 ， 例 如 200]</td></tr> 
<tr><td width=141 align=right> 每 页 留言 条 数 &nbsp: &nbsp: </td><td width="429"><input 
type-text name-counts value="<%=counts%>" maxlength=2> [推荐 10]</td></tr> 
<tr><td width=141 align=right> 留 言 表格 间距 &nbsp: &nbsp: </td><td width="429"><input 
type-text name=distance value="<%=distance%>" maxlength=2> [合适 的 间距 可 使 版 面 更 美 
W, HEF 10]</td></tr> 
<t><td width=141 align=right> 管 理 员 回复 提示 &nbsp: &nbsp: </td><td width="429"><input 
type-text name-isreply value="<%=rs("isreply")%>" maxlength=10> [例如 : “客服 回 
复 ”]</td></t> 
<tr><td width=141 align=right> 管 理 员 回复 颜色 &nbsp: &nbsp: </td><td width="429"><input 
type-text name=replycolor value="<%=rs("replycolor")%>" maxlength=10> [可 使 用 英文 单 
词 或 16 进 制 数 ， 如 : red, #CCFF00” ]</td></tr> 
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<tr><td colspan=2 width="580"><INPUT name-"save" TYPE-"hidden" value-"ok"--INPUT 
TYPE-"submit" value=" 保 存 设 置 "></td></tr> 
</form> 

</table> 

</center> 

</td></tr> 

</table> 

<table width="760" border=0 cellspacing=0 cellpadding=0 bgcolor="#FFFFFF" align=center 
class=" grayline"> 

<tr><td> </td></tr> 

<tr><td width=30 height=37 background="IMAGES/down.gif'><a href=#top><img 
src-images/up.gif border=0></a></td> 

<td height=37 background="IMAGES/down.gif">&nbsp:&nbsp:Copyright &copy: 2007 版 权 所 有 
</td> 

<td width=30 height=37 background="IMAGES/down.gif"><a href-admin login.asp title=" 管 理 留 
言 本 "><img src-images/admin.gif border=0></a></td> 

«t 

</table> 

</body> 

</html> 

<% 

Is.close 
set rs=nothing 


Else 
response.write "<script>alert(' 当 前 没有 登录 用 户 ):history.backO:</script>" 
response.end 

End If 

End if 

Sub setup() 

if request("save")-"ok" then "保存 设置 
Set NArs-Server.CreateObject(" ADODB.Recordset") "创建 RecordSet 对 象 


' 从 数据 库 Note Admin 中 查询 id 值 为 Session("id") 的 记录 ， 并 保存 在 NArs 中 


NArs.open "select * from note admin where id="&Session("id").conn.1.3 


Set WBrs = Server.CreateObject(" ADODB.RecordSet") "创建 RecordSet 对 象 
' 从 数据 库 Web 中 查询 所 有 记录 ， 并 保存 在 WBrs 中 
WBrs.Open "Select * from web".conn.1.3 


' 资 料 填写 不 完整 
if trim(request.form("sitename"))-"" or trim(request.form("admin"))-"" or 
trim(request.form("maxlength"))-"" or trim(request.form("counts"))-"" or 


trim(request.form("replycolor"))-"" or trim(request.form("isreply"))-"" or 
trim(request.form("distance"))-"" then 
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' 给 出 提示 ， 并 返回 到 前 一 页 
response.write "<script>alert(' 资 料 填写 不 完整 或 有 错误 ， 请 检查 后 重新 提交 。 
"):history.back():</script>" 
Tesponse.end 
end if 
“输入 的 留言 主题 最 大 长 度 、 留 言 内 容 最 大 长 度 、 每 页 留言 数 和 表格 间距 不 是 数字 
if (not isNumeric(request.form("subjectmaxlength"))) or (not 
isNumeric(request.form("maxlength"))) or (not isNumeric(request.form("counts"))) or (not 
isNumeric(request.form("distance"))) then 
' 给 出 提示 ， 并 返回 到 前 一 页 
response.write "<script>alert(' 资 料 填写 不 完整 或 有 错误 ， 请 检查 后 重新 提交 。 


'):history.back();</script>" 

response.end 
endif 
WBrs("sitename")=Request.Form("sitename") "站 点 名 称 
NArs("admin")=Request.Form("admin") ' 管 理 员 姓名 
if trim(request("password"))<>"" then 

NArs("pwd")=trim(Request.Form("pwd")) 密码 
End If 
WBrs("SubjectMaxLength") = Request.Form("subjectmaxlength") “' 留 言 主题 最 大 长 度 
WBrs("maxlength")-Request.Form("maxlength") "留言 内 容 最 大 长 度 
WBrs("counts")-Request.Form("counts") "每 页 留言 数 
WBrs("mail")-Request.Form("mail") 是 否 必 填 邮箱 
NArs("isreply")=trim(Request.Form("isreply")) "回复 提示 
NaArs("replycolor")-trim(Request.Form("replycolor")) "回复 颜色 
WBrs("distance")=Request.Form("distance") "表格 间距 
NArs.update ' 更 新 数据 库 
WBrsupdate ' 更 新 数据 库 
NArs.Close "关闭 RecordSet 对 象 
Set NArs = nothing 
WBrs.Close "XH] RecordSet 对 象 


Set WBrs = nothing 

' 保 存 成 功 ， 给 出 提示 ， 并 返回 到 管理 选项 界面 

response.write "<script>alert(' 您 提交 的 设置 已 保存 。 
'):location.href='admin set.asp';</script>" 


response.end 


End If 
End Sub 
conn.CLose 

Set conn = nothing 


%> 
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(2) 4% admin. set.asp 文件 保存 至 CAInetpubwwwroot 3X fF X . 

8. 创建 退出 登录 文件 

用 户 可 以 参考 下 面 练 习 所 介绍 的 方法 创建 留言 板 管理 员 退 出 登录 页 面 。 
【练习 13-20】 创 建 留言 板 管理 员 退 出 登录 页 面 。 

(1) 创建 留言 板 管理 员 退 出 登录 页 面 admin logoutasp， 其 代码 如 下 所 示 : 


<% 


' 退 出 管理 ， 返 回 留言 首页 


Session("login") = "" "清除 Session 变量 login 中 的 值 
Session("id") = "" "清除 Session 变量 id 中 的 值 
Session("user") = "" ' 清 除 Session 变量 user 中 的 值 
Response.Redirect ("index.asp") ' 页 面 转 到 留言 查看 界面 


%> 


(2) 将 admin logout.asp 文件 保存 至 C:\Inetpub\vwwwroot X fF X P. 
13.2.4 ”实例 测试 


完成 本 节 实 例 的 操作 后 启动 TE. 浏览 器 ， 在 地 址 栏 输入 http://localhost/index.asp 并 按 下 
Enter 键 显示 留言 板 主 界面 , 如 图 13-43 所 示 。 留言 发 布 者 可 以 在 该 页 面 中 单 击 “ 发 布 留言 ” 
按钮 ， 在 打开 的 留言 发 布 页 面 中 发 布 新 的 留言 ， 如 图 13-44 所 示 。 


图 13-43 留言 板 主 界面 图 13-44 ”发 布 留言 页 面 


单 击 留言 板 主 界面 右 下 角 的 “管理 留言 板 ” 按 钮 图 ,在 打开 的 如 图 13-45 所 示 的 管理 员 
登录 页 面 中 ， 登 录 留 言 板 管理 页 面 (用 户 名 为 admin， 密 码 为 admin)， 如 图 13-46 所 示 。 

在 如 图 13-46 所 示 的 留言 板 管理 页 面 中 ， 留 言 板 管理 员 可 以 通过 单 击 具体 的 留言 名 称 
(如 图 13-47 所 示 )， 打 开 如 图 13-48 所 示 留 言 回复 页 面 。 在 留言 回复 页 面 中 ， 留 言 板 管理 员 
可 以 对 留言 进行 回复 。 
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图 13-46 留言 板 管理 页 面 


ET 


图 13-47 单 击 留言 名 称 13-48 ”留言 回复 页 面 


在 如 图 13-46 所 示 的 留言 板 管理 页 面 中 ， 留 言 板 管理 员 还 可 以 通过 单 击 “ 管 理 选 项 ” 
按钮 (如 图 13-49 所 示 )， 打开 如 图 13-50 所 示 的 留言 板 设置 页 面 。 在 留言 板 设置 页 面 中 ， 留 
言 板 管理 员 可 以 根据 需要 设置 留言 板 。 


13-49 ” 单 击 “ 管 理 选项 ”按钮 13-50 ”留言 板 设置 页 面 


在 如 图 13-46 所 示 的 留言 板 管理 页 面 中 ， 留 言 板 管理 员 可 以 通过 单 击 “退出 管理 ” 按 
钮 ， 退 出 留言 板 管理 界面 。 
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13.3 ”网 站 流量 统计 


网 站 流量 统计 是 现在 很 多 网 站 和 论坛 必 备 的 模块 。 该 模块 可 以 有 效 地 统计 网 站 的 本 日 
访问 人 数 、 历 史 访问 人 数 以 及 平均 访问 人 数 等 流量 数据 ， 可 以 帮助 网 站 管理 员 对 网 站 进行 
网 站 更 新 以 提高 网 站 访问 量 。 

13.3.1 功能 介绍 


本 节 实 例 创建 的 网 站 流量 统计 模块 如 图 13-51 所 示 。 单 击 该 页 面 中 的 “网 站 流量 详细 数据 
查看 ”链接 ， 打 开 如 图 13-52 所 示 的 网 站 详细 流量 查看 页 面 ， 可 以 查看 网 站 流量 的 详细 数据 。 


图 13-51 网 站 流量 统计 主页 面 图 13-52 ”网 站 流量 详细 数据 


13.3.2 ”模块 设计 


本 节 实 例 所 创建 的 网 站 流量 统计 模块 能 够 实现 网 站 流量 总 访问 量 统计 、 网 站 每 日 平均 
访问 量 统计 、 当 天 网 站 访问 量 统计 、 网 站 最 高 访问 量 和 最 高 访问 日 期 统计 等 功能 ， 其 工作 
原理 如 图 13-53 所 示 。 
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流量 统计 数据 库 
图 13-53 ”网 站 流量 统计 模块 的 流程 
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由 网 站 流量 计数 器 模块 的 结构 可 以 看 出 ， 该 模块 主要 由 以 下 几 个 页 面 文件 组 成 。 


e Countasp 文件 : 该 文件 为 数据 库 连 接 文件 。 


* Defaultasp 文件 : 该 文件 向 登录 用 户 显示 当前 访问 总 量 以 及 用 户 的 登录 时 间 。 
e Index.asp 页 面 : 该 文件 详细 显示 本 日 网 站 流量 统计 和 10 条 最 近 的 历史 流量 统计 。 


2. 数据 库 设计 


本 节 实 例 所 创建 的 网 站 流量 统计 模块 需要 如 表 13-5 所 示 的 数据 表 count 存储 网 站 各 项 
访问 量 的 数据 ， 需 要 如 表 13-6 所 示 的 数据 表 history 存储 日 期 和 访问 量 数据 。 


Top 


Browser 


13.3.3 ”实例 操作 


表 13-5 count 数据 表 


编号 

今日 访问 量 
日 期 

统计 天 数 
昨日 访问 量 
总 访问 量 
最 高 访问 量 
最 高 访问 日 期 


访问 量 


下 面 将 结合 本 章 第 13.2.2 节 所 介绍 的 网 站 流量 统计 模块 的 结构 ， 通 过 实例 介绍 创建 一 


个 网 站 流量 统计 模块 方法 。| 


和 户 在 进行 实例 操作 之 前 ， 应 结合 本 书 第 1.2 节 和 第 1.3 节 所 


介绍 的 方法 在 本 地 计算 机 上 构建 一 个 ASP 应 用 程序 的 开发 环境 。 


1. 创建 数据 库 


下 面 将 根据 表 13-5 和 表 13-6 所 介绍 的 内 容 ， 创 建 本 节 实 例 所 需 的 数据 库 。 


【练习 13-21] 根据 表 13-5 和 表 13-6 所 示 的 内 容 创 建 数据 表 count 和 history。 
(1) 选择 “开始 ”|“ 程 序 ”| Microsoft Office| Access 2003 命令 ， 启 动 Access 2003 数据 
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库 ， 然 后 选择 “文件 ”| “新建 ”命令 ， 打 开 “新建 文件 ”对 话 框 。 

(2) 单 击 “ 空 数据 库 ” 按 钮 ， 在 打开 的 “文件 新 建 数 据 库 ”对 话 框 的 “文件 名 ”文本 
框 中 输入 countermdb。 

(3) 单 击 “ 创 建 ”按钮 ， 在 打开 的 Access 2003 的 工作 界面 的 工作 区 域 中 选择 “对 象 ” 列 
表 框 中 的 “ 表 ” 选 项 ， 然 后 在 对 话 框 右 侧 的 选项 区 域 中 双击 “使 用 设计 器 创建 表 ” 选 项 打开 数 
据 表 的 设计 检视 窗口 。 

(4) 根据 表 13-5 所 示 的 内 容 ， 创 建 数据 表 count， 完 成 后 的 效果 如 图 13-54 所 示 。 

(5) 根据 表 13-6 所 示 的 内 容 ， 创 建 数据 表 history， 完 成 后 的 效果 如 图 13-55 所 示 。 
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图 13-54 ”创建 count 数据 表 图 13-55 ”创建 history 数据 表 


(6) 完成 以 上 操作 后 关闭 Access 数据 库 。 
2. 创建 数据 库 连 接 文件 


完成 数据 库 的 创建 工作 后 ， 用户 可 以 参考 下 面 练习 所 介绍 的 方法 ,创建 ASP 网 页 数据 
库 连接 文件 Conn.asp。 


【练习 13-22】 面 。 

(1) 创建 数据 库 连 接 文件 Conn.aso， 其 代码 如 下 所 示 : 
<% 
"使 用 createobject 方法 创建 connection 对 象 
set conn-server.createobject("adodb.connection") 
"Server.MapPath 将 指定 的 数据 库 文件 虚拟 路 径 转换 为 真实 路 径 ， 本 例 对 应 的 路 径 为 
'd:\Inetpub\wwwroot\count\counter.mdb 
DBPath = Server.MapPath("counter.mdb") 
"采用 Open 方法 连接 数据 库 ，driver 参数 设置 数据 库 的 驱动 程序 ， 
"dbq 参数 设置 数据 库 的 实际 路 径 及 文件 名 称 
conn.Open "driver={Microsoft Access Driver (*.mdb)}:dbq=" & DBPath 


set rs=server.createobject("adodb.recordset") "创建 recordset 数据 集 对 象 
sql="select * from count" "从 count 表 中 读 取 所 有 数据 
rs.open sql.conn.1,3 "执行 数据 库 查 询 操作 


Dim vtoday.vbrowser.vota.vdaynum.vyesterday.vcounter.vtop.vtopdate 
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"rs("today"). rs("ota"), rs("daynum"),. rs("yesterday"), rs("counter"), rs("top"), "rs("topdate")4) 5| 73 
count 表 中 today žij, ota žij, daynum žij, yesterday žij, counter 7]. top 列 、'topdate 列 对 应 的 值 
vtoday = rs("today") 

vota — rs("ota") 

vdaynum - rs("daynum") 

vyesterday = rs("yesterday") 

vcounter = rs("counter") 

vtop = rs("top") 

vtop = rs("topdate") 

%> 


(2) 将 Conn.asp 文件 保存 至 CAInetpubwwwroot 文件 夹 中 。 

3. 创建 计数 器 主页 面 

用 户 访问 网 站 首先 要 进入 一 个 默认 网 页 Default.asp， 该 页 面 显示 访问 计数 器 以 及 用 户 
登录 该 网 站 的 时 间 ， 并 具备 数据 库 的 更 新 操作 。 


【练习 13-23】 创 建 网 站 计数 器 主页 面 Default.asp。 
(1) 创建 网 站 流量 计数 器 主页 面 文件 Default.asp， 其 代码 如 下 所 示 : 


<!--#include file="conn.asp"--> 
<html> 
<head> 
<title> 网 站 流量 统计 </title> 
</head> 
<body bgcolor="red"> 
<p align="center"><font size="5"> 网 站 流量 统计 </font></p> 


<hr> 

«p align="center"> 本 站 已 有 <font color= red><%=vcounter+1%></font> 位 访问 者 曾经 访问 </p> 
<% ' 对 数据 库 的 更 新 操作 

If vota<>date() Then 'count 表 中 的 数据 不 是 本 日 数据 


vzzday- vota "获得 count 表 中 的 日 期 
H count 表 更 新 为 本 日 数据 ， 今 日 访问 量 置 为 0 
conn.Execute"Update count set today=0, ota-date().daynum-daynum- 1, 
yesterday-"&vtoday &"" 


在 'history 数据 表 中 添加 记录 

"创建 RecordSet 对 象 

Set rs = Server.CreateObject(" ADODB.RecordSet") 

' 从 数据 库 中 读 取 所 有 记录 

rs.Open "Select * from history".conn.1,3 

rs.AddNew 

' 使 用 AddNew 方法 添加 一 条 新 记录 

rs("date") = vzzday "日 期 
rs("browser") = vtoday "浏览 量 
Ts.Update ' 更 新 数据 库 


rs.Close "关闭 RecordSet 对 象 
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Else 'count 表 中 保存 的 是 今日 数据 
If vtop<vtoday Then ' 最 高 访问 量 低 于 今日 访问 量 
' 更 新 count 表 中 的 值 ， 将 今日 访问 量 、 总 访问 量 加 1， 最 高 访问 量 更 新 为 今日 访问 量 
conn.Execute"Update count set counter-counter-*1 .today-today- 1.top = "&vtoday&"" 
Else ' 最 高 访问 量 高 于 今日 访问 量 
' 更 新 count 表 中 的 值 ， 将 今日 访问 量 、 总 访问 量 加 1 
conn.Execute"Update count set counter-counter- 1,today-today--1" 
End If 
End If 
%> 
«p align="center"> 当 前 用 户 到 访 时 间 是 &nbsp<%=Date0%>&nbsp<%=Time()%></p> 
<p align="center"><font size="2"><a href = "index.asp"> 网 站 流量 详细 数据 查看 
</a></font></p> 
</body> 
</html> 


(2) 将 Index.asp 文件 保存 至 Ci\Inetpub\Wwwwroot X fF X F. 
13.3.4 ”实例 测试 


完成 本 节 实 例 的 操作 后 启动 TE. 浏览 器 , 然后 在 地 址 栏 中 输入 http://localhost/default.asp 
并 按 下 Enter 键 , 网 页 效果 如 图 13-56 所 示 。 在 defaultasp 页 面 中 单 击 “网 站 详细 数据 查看 ” 
链接 后 ， 可 以 打开 如 图 13-57 所 示 的 Index.asp 页 面 显示 网 站 的 详细 访问 数据 。 
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图 13-56 default.asp 页 面 效果 图 13-57 Index.asp 页 面 效 果 


13.4 ”网 络 聊 天 室 


本 节 将 通过 一 些 练习 , 介绍 使 用 ASP 编程 的 方式 创建 一 个 网 络 聊天 室 的 方法 。 在 聊天 
室 中 ， 用 户 能 够 实现 最 基本 的 聊天 功能 。 
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13.4.1 功能 介绍 


本 节 创 建 的 网 络 聊天 室 的 登录 界面 如 图 13-58 所 示 ， 用 户 可 以 在 该 界面 中 登录 聊天 室 
或 注册 新 的 聊天 室 用 户 。 成功 登录 聊天 室 后 , 用户 将 进入 如 图 13-59 所 示 的 聊天 室 主 界面 。 
用 户 可 以 在 聊天 室 主页 面 下 方 的 文本 框 中 输入 和 发 送 聊天 内 容 ， 可 以 在 页 面 左 侧 显示 聊天 
室 中 的 全 部 用 户 ， 并 在 页 面 的 中 间 部 分 查看 聊天 室 中 的 聊天 内 容 。 


图 13-58 ”聊天 室 登 录 页 面 13-59 WREEF 


13.4.2 ”模块 设计 
本 节 实 例 创建 的 网 络 聊天 室 模块 的 结构 如 图 13-60 所 示 。 


13-60 ”网 络 聊 天 室 模块 的 结构 


4. 
由 网 站 聊天 室 模块 的 结构 可 以 看 出 ， 该 模块 主要 由 以 下 几 个 页 面 文件 组 成 。 


页 面 文件 设计 


Index.asp HH: 该 页 面 为 聊天 室 用 户 登录 页 面 。 

Register.asp 页 面 : 该 页 面 为 聊天 室 新 用 户 注册 页 面 。 

Main 页 面 : 该 页 面 为 聊天 室 系统 的 主 界面 。 

Chatroom.asp 文件 : 该 文件 为 聊天 室 系统 的 布局 文件 。 
Showname.asp 页 面 : 该 页 面 显示 当前 在 线 用 户 名 单 。 
Postmsg.asp 文件 : 该 文件 实现 用 户 输入 和 发 送 聊天 内 容 。 
Showmasg.asp 文件 : 该 文件 显示 用 户 登 录 后 的 所 有 聊天 内 容 。 
Topmsg.asp 文件 : 该 文件 在 聊天 室 主 界面 上 方 显示 聊天 室 名称 。 
Logoutasp X fF: 该 文件 为 用 户 退 出 登录 文件 。 

Conn.asp 文件 : 该 文件 为 数据 库 连 接 文件 。 

Md5.asp 文件 : 该 文件 为 用 户 登 录 密码 加 密 文件 。 
Procedure.asp 文件 : 该 文件 中 包含 邮件 地 址 格式 确认 过 程 。 
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另外 ， 在 本 节 创 建 的 聊天 室 模 块 中 需要 处 理 以 上 所 示 的 文件 以 外 ， 还 需要 创建 
Function.asp. Safecode.asp. Canvsa.asp 以 及 font.asp 等 4 个 文件 完成 用 户 登 录 时 验证 码 的 
生成 与 显示 。 


2. 


数据 库 设 计 


本 章 所 创建 的 网 络 聊天 室 模块 需要 使 用 如 表 13-7 所 示 的 User 数据 表 保存 用 户 注册 信 
息 ， 需 要 如 表 13-8 所 示 的 online 数据 表 保 存 用 户 注册 信息 ， 需 要 如 表 13-9 所 示 的 chat 数 
据 表 保存 用 户 的 聊天 内 容 。 


表 13-7 User 数据 表 的 结构 


字 ER 说 了 明 
ID e 
UserName 目 姓 名 户 名 
Password 户 密 码 
Name 户 真实 姓名 
Email 户 电子 邮箱 

字 段 说 BB 
ID 号 
UserName 用 户 名 
OnlineTime 登录 时 间 
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表 13-9 chat 数据 表 


字 段 说 AA 
ID | É 编号 
FromName | 文本 发 言 者 用 户 名 
ToName | 文本 发 言 对 象 用 户 名 
Postrime | numera 发 言 时 间 


Chat 文本 发 言 内 容 


13.4.3 ”实例 操作 


下 面 将 结合 本 章 第 13.2.2 节 所 介绍 的 聊天 室 模块 的 结构 ， 通 过 实例 介绍 创建 一 个 网 站 
聊天 室 模块 的 方法 。 用 户 在 进行 实例 操作 之 前 ， 应 结合 本 书 第 1.2 节 和 第 13 节 所 介绍 的 
方法 在 本 地 计算 机 上 构建 一 个 ASP 应 用 程序 的 开发 环境 。 

1. 创建 数据 库 

下 面 将 根据 表 13-7 一 表 13-9 所 示 的 内 容 ， 创 建 本 节 实 例 所 需 的 数据 库 。 


【练习 13-24】 根 据 表 13-7 一 表 13-9 所 示 的 内 容 ， 创 建 数据 表 User、online 和 chat。 

(1) 选择 “开始 ”|“ 程 序 ”| Microsoft Office| Access 2003 命令 ， 启 动 Access 2003 数据 
库 ， 然 后 选择 “文件 ”|“ 新 建 ”命令 ， 打 开 “ 新 建文 件 ” 对 话 框 。 

(2) 单 击 “ 空 数据 库 ” 按 钮 ， 在 打开 的 “文件 新 建 数 据 库 ”对 话 框 的 “文件 名 ”文本 
框 中 输入 ChatRoom.mdb。 

G) 单 击 “创建 ”按钮 ， 在 打开 的 Access 2003 的 工作 界面 的 工作 区 域 中 选择 “对 象 ” 列 
表 框 中 的 “ 表 ” 选 项 ， 然 后 在 对 话 框 右 侧 的 选项 区 域 中 双击 “使 用 设计 器 创建 表 ” 选 项 ， 打 开 
数据 表 的 设计 检视 窗口 。 

(4) 根据 表 13-7 所 示 的 内 容 ， 创 建 数据 表 User， 完 成 后 的 效果 如 图 13-61 所 示 。 


图 13-61 数据 表 User 图 13-62 数据 表 online 
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(6) 根据 表 13-19 所 示 的 内 容 ， 创 建 数据 表 chat， 完 成 后 的 效果 如 图 13-63 所 示 。 
(7) 完成 以 上 操作 后 ChatRoom 数据 库 如 图 13-64 所 示 。 这 时 ， 用 户 可 以 关闭 Access 
2003 数据 库 。 


蕊 CHATROOK : 数据 库 (Access 2000 文件 格式 ) 加 回避 


Giro iuro e [X 2. 二 国语 
对 得  |[8] sawer 


图 13-63 ”数据 表 chat 图 13-64 ChatRoom 数据 库 


2. 创建 数据 库 连 接 文件 


完成 数据 库 的 创建 工作 后 ,用户 可 以 参考 下 面 练习 所 介绍 的 方法 , 创建 ASP 网 页 数据 
库 连 接 文 件 Conn.asp。 


【练习 13-25】 创 建 数据 库 连 接 文件 Conn.asp。 
(1) 创建 数据 库 连接 文件 Conn.asp， 其 代码 如 下 所 示 : 


<% 

"连接 数据 库 开始 

"dim conn,connstr,database 

"database = "chatroom.mdb" 

'set connserver.createobject("adodb.connection") 
'connstr-"DBQ-"-Server.mappath(database)":DRIVER- (Microsoft Access Driver (*.mdb)}:" 
'conn.Open connstr 

9o 

<% 

DBName-"chatroom.mdb" 

Set conn = Server.CreateObject(" ADODB.Connection") 
connstr-"DBQ-"-*Server.mappath(DBName)-":DRIVER- (Microsoft Access Driver (*.mdb)}:" 
conn.open connstr 

%> 


(2) 将 Conn.asp 文件 保存 至 C:\Inetpubvwwwroot 文件 夹 中 。 
3. 创建 聊天 室 登 录 模 块 


聊天 室 登 录 模 块 包括 聊天 室 登 录 页 面 Index.asp 和 Function.asp、 Safecode.asp. 
Canvas.asp、font.asp 以 及 MP5.asp 等 用 户 登 录 验 证 码 生 成 与 显示 文件 。 用 户 在 创建 本 节 实 
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例 所 需 的 聊天 室 登 录 模 块 时 ， 可 以 先 参考 本 章 第 13.1.3 节 相 应 的 方法 创建 Function.asp、 
Safecode.asp. Canvas.asp. fontasp. MPS.asp 文件 ， 再 参考 下 面 练习 所 介绍 的 方法 创建 
Index.asp 页 面 。 


【练习 13-26】 创 建 聊 天 室 登 录 主 界面 Index.asp。 
(1) 创建 网 络 聊天 室 用 户 登 录 页 面 Index.asp， 其 代码 如 下 所 示 : 
<!--#Include File-"conn.asp" --> 


<!--#Include File="md5.asp" --> 
<!--#Include File-"function.asp" --> 


<% 
If Request.QueryString("act") ="login" Then "用 户 登录 
user = Request.Form("UserName") ' 读 取 从 表单 传递 过 来 的 用 户 名 数据 
pass = Request.Form("Password") ' 读 取 从 表单 传递 过 来 的 密码 数据 
If user<>"" and pass<>"" Then ' 用 户 名 和 密码 已 经 填写 


If not IsNumeric(Request.Form("confirm")) Then 
"用 函数 IsNumeric 判断 用 户 输入 的 验证 码 是 否 为 数字 
"如 果 用 户 填写 的 验证 码 不 是 数字 ， 则 提示 用 户 并 返回 到 登录 窗口 
Response.Write "<script>alert(' 你 输入 的 验证 码 为 非 数字 ! ny 
window. location.href('index.asp");«/script^" 
Response.End 
End If 

'Session("SafeCode") 用 来 保存 程序 生成 的 验证 码 ， 

' 比 较 生 成 的 验证 码 与 用 户 输入 的 验证 码 是 否 相 同 

If (int(Session("SafeCode"))-int(Request.Form("confirm"))) Then 

Set rs-Server.CreateObject("Adodb.RecordSet") “' 生 成 RecordSet 对 象 
' 从 数据 表 User 中 读 取 UserName 的 值 为 user 和 UserPass 的 值 为 mds(pass) 的 记录 
'mds 函数 是 一 个 加 密 函 数 ， 将 管理 员 输 入 的 密码 加 密 后 与 数据 库 中 的 值 进行 比较 


sql="Select * from User where UserName-"" &user&" and Password-"" &md5(pass)&"'" 


rs.open sql.conn,1.3 ' 读 取 满 足 条件 的 记录 保存 在 rs 中 
If not(rs.bof and rs.eof) Then ' 满 足 条 件 的 记录 存在 
输入 的 用 户 名 和 密码 正确 
If md5(pass)=rs("Password") and user=rs("UserName") Then 
"判断 登录 的 用 户 是 否 已 在 线 


sql = "Select * from online where UserName = "&user&"'" 
Set OLrs = Server.CreateObject("Adodb.RecordSet") 
OLrs.open sql.conn,1.1 
' 用 户 已 在 线 
If not (OLrs.EOF and OLrs.BOF) Then 
给 出 提示 ， 并 返回 到 前 一 页 
Response.Write("<script>alert(' 该 用 户 已 经 存在 !):history.backO:</script>) 
Response.End 
Else "用 户 不 在 线 
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Session("user")-user 'Session 变量 user 中 保存 当前 登录 的 用 户 名 
Session("chat") = "" 'Session 变量 chat 保存 用 户 私 聊 内 容 
'Application("Gchatnum'") 中 的 值 为 当前 聊天 总 记录 数 
Session("Lchatnum") = Application("Gchatnum") 

OLrs.close 关闭 RecordSet 对 象 

Set OLrs-nothing 

rs.Close 

Set rs = nothing 

Response.Redirect "mainasp" "登录 成 功 ， 转 到 页 面 main.asp 
End If 

Else 

' 登 录 不 成 功 ， 提 示 用 户 ， 并 转 到 页 面 mdex.asp 

Response.Write "<script>alert(' 登 录 失 败 ， 用 户 名 或 密码 错误 ! 


"):window.location.href('index.asp'):</script>" 


End If 
conn.Close "关闭 数据 库 连 接 
Set conn=nothing 
Else "满足 条 件 的 记录 不 存在 


Response.Write "-script»alert( ' 登 录 失 败 ! 用 户 名 或 密码 不 存在 ! 


"window.location.href('index.asp"):-/script?" 


End If 
conn.Close "关闭 数据 库 连 接 
Set conn-nothing 

Else ' 验 证 码 输 入 错误 


Response. Write "<script>alert(' 登 录 失 败 ! 验证 码 输入 错误 ! 小 
window.location.href('index.asp"):«/script^" 
End If 
Else ' 用 户 名 和 密码 没有 输入 
Response.Write "<script>alert(' 登 录 失 败 ! 用 户 名 和 密码 不 能 为 空 ! 
'):window.location.href('index.asp'):</script>" 
End If 
Else 
%> 
<html> 
<head> 
<body bgcolor="#C0C0C0"> 
<title> 网 站 聊天 室 </title> 
«script language="VBScript"> 


function check() "检查 是 否 输入 用 户 名 、 密 码 和 验证 码 
If form1.username.value-"" Then ' “用 户 名 ”文本 框 的 值 为 空 

alert(" 用 户 名 不 能 为 空 !") 给 出 提示 

form1.username.focus() ' 将 “用 户 名 ”文本 框 置 为 输入 焦点 


return false 
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End If 

Ifforml.password.value="" Then '" “密码 ”文本 框 的 值 为 空 
alert(" 密 码 不 能 为 空 !") 
forml1.password.focus() ' 将 “密码 ”文本 框 置 为 输入 的 焦点 
return false 

End If 

If form1.confirm.value-"" Then ' 验 “证 码 ” 文 本 框 的 值 为 空 
alert(" 验 证 码 不 能 为 空 ! ") 
forml.confirm.focus() ' 将 “验证 码 ” 文 本 框 置 为 输入 焦 
return false 

End If 

return true 

End Function 

</script> 

</head> 

<body> 

«p align="center"><font size="8" face=" 宋 体 "> 聊天 室 用 户 登录 </font></p> 

<hr> 


«form name = "forml" method = "Post" action = "index.asp?act-login" onsubmit = "Check()" 
«div align="center"> 
«table border-"0" width="37%"> 
<tr> 
<td width="28%" bgcolor="#C0C0C0" align = center><font size="2"> 用 户 名 : </font></td> 
<td width="72%"><input type = "input" name = "UserName" size = 20></td> 


«n 
<tr> 
<td width="28%" bgcolor="#C0C0C0" align = center><font size="2"> 密 &nbsp; 1: 
</font></td> 
<td width="72%"><input type = "password" name = "Password" size = 20></td> 
</tr> 
<tr> 
<td width="28%" bgcolor="#C0C0C0" align = center><font size="2"> 验 证 码 : </font></td> 
<td width="72%"><input type = "input" name = "Confirm" size = 10><%Call 
GetSafeCode()%></td> 
<I> 
</table> 
</div> 


<b> 


submit" value = "登录 ">&nbsp: 
<input type = "reset" name = "submit" onclick = "check()" value = "& "></p> 
<p align="center"><a hre 全 "Register.asp"> 注 册 新 用 户 </a></p> 


</form> 


«p align="center"><input type = "submit" name 
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</body> 
<%End If?o- 
</html> 


(2) 将 Index.asp 文件 保存 至 C Mnetpub wwwroot 文件 夹 中 。 
4. 创建 聊天 室 新 用 户 注册 模块 
聊天 室 新 用 户 注册 模块 包括 电子 邮件 地 址 格式 确认 文件 Procedure.asp 和 聊天 室 新 用 户 


注册 文件 Register.asp。 用 户 可 以 参考 下 面 练习 所 介绍 的 方法 创建 聊天 室 新 用 户 注册 模块 所 
需 的 页 面 。 


【练习 13-27】 创 建 电子 邮件 地 址 确认 文件 Procedure.asp。 
(1) 创建 电子 邮件 地 址 确认 文件 Procedure.asp， 其 代码 如 下 所 示 : 


<% 


Dim webname,weburl.filepath.Language,errortext 


' 检 查 Email 格式 是 否 正确 

Function IsValidEmail(email) "定义 过 程 
Dim names, name, i, c 

IsValidEmail = TRUE ' 初 始 化 


"使 用 @ 字 符 将 Email 字符 串 分 成 几 个 子 字符 串 并 保存 在 names 数组 中 

names = Split(email, "@") 

"Ubound 函数 返回 数组 names 的 最 大 下 标 ，Ubound(names)<>1 表明 Email 字符 串 中 存在 @ 字 符 
"并 不 是 一 个 ， 所 以 Email 不 是 有 效 的 邮件 地 址 格式 

If UBound(names) <> 1 Then 

IsValidEmail - FALSE 


Exit Function "跳出 Function 过 程 

End If 

For Each name in names ' 数 组 names 中 的 每 一 个 元 素 
If Len(name) <= 0 Then “ETE name 中 字符 的 数目 
IsValidEmail = FALSE 
Exit Function "Pl Function 过 程 
End If 
Fori- 1 To Len(name) "For 循环 


"Mid(name.i.1) 返 回 字 符 串 name 中 第 i 个 字符 ，LCase 函数 将 该 字符 转换 成 小 写 形式 
c = LCase(Mid(name. i, 1)) 
"Instr 函数 返回 某 字符 串 在 另 一 字符 串 中 第 一 次 出 现 的 位 置 。 
"InStr("abcdefghijkImnopqrstuvwxyz -.". c) <= 0 表明 字符 c 不 在 字符 串 
' "abcdefghijklmnopqrstuvwxyz_-." 中 。IsNumeric(c) 判 断 字符 c 是 否 为 数字 
If InStr("abcdefghijkImnopqrstuvwxyz -.". c) <= 0 AND NOT IsNumeric(c) Then 
' 不 支持 中 文 格式 地 址 
IsValidEmail = FALSE 
Exit Function "跳出 Function 过 程 
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End If 
Next "ZR For to 循环 
"eft(name,1) 返 回 字 符 串 name 最 左边 一 个 字符 
"Right(name,1) 返回 字符 串 name 最 右边 一 个 字符 
If Left(name, 1) ="." or Right(name, 1) = "." Then 
IsValidEmail - FALSE 


Exit Function "跳出 Function 过 程 
End If 
Next ' 结 束 For each 循环 
If InStr(names(1), ".") <= 0 Then "Email 字符 串 中 @ 右 边 部 分 不 包含 字符 “.” 
IsValidEmail - FALSE 
Exit Function 


End If 
"InStrRev 函数 返回 某 字 符 串 在 另 一 个 字符 串 中 出 现 的 从 结尾 计 起 的 的 位 置 ， 
"InstrRev(names(1), ".") 得 到 字符 “.” 在 字符 串 names(1) 中 从 结尾 计 起 的 位 置 
i=Len(names(1)) - InStrRev(names(1). ".") 
"电子 邮件 最 后 一 般 为 cn 或 com， 长 度 为 2 或 3 
Ifi<>2ANDi<>3Then 
IsValidEmail - FALSE 
Exit Function 
End If 
Email 中 存在 字符 串 “.” 
If InStr(email, "..") > 0 Then 
IsValidEmail - FALSE 
End If 
End Function 
%> 


(2) 将 Procedure.asp 文件 保存 至 Ci\Inetpub\wwwroot 文 件 夹 中 。 


完成 Procedure.asp 文件 的 创建 后 ,用户 可 以 参考 下 面 练 习 所 介绍 的 方法 创建 聊天 室 新 
用 户 注册 页 面 Register.asp。 


【练习 13-28】 创 建 聊 天 室 新 用 户 注册 页 面 Register.asp。 
(1) 创建 网 络 聊天 室 的 新 用 户 注 册页 面 Register.asp， 其 代码 如 下 所 示 。 


<!--#Include File-"conn.asp" --> 
<!--#include File ="procedure.asp"--> 
<!--#Include File="md5.asp" --> 

<% 

Sub save() 
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Dim UserName,UserPwd,Pwd,Name,Email 
"声明 变量 
' 读 取 从 表单 传递 过 来 的 用 户 名 数据 ，Trim 函数 去 掉 字 符 串 的 前 导 与 后 续 空格 
UserName=TRIM(Request.Form("UserName")) 
UserPwd=TRIM(Request.Form("UserPwd")) ' 读 取 从 表单 传递 过 来 的 密码 数据 
Pwd-TRIM(Request.Form("Pwd")) ' 读 取 从 表单 传 来 的 确认 密码 数据 
' 读 取 从 表单 传递 过 来 的 真实 姓名 数据 
Name-TRIM(Request.Form("Name")) 
' 读 取 从 表单 传递 过 来 的 电子 邮箱 数据 
Email=TRIM(Request.Form("Email")) 
' 用 户 输入 不 完全 
If UserName-"" or UserPwd="" or Pwd = "" or Name-"" or Email="" Then 
"给 出 提示 ， 返 回 注 册页 面 。history.backO 返 回 注册 页 面 
Response. Write "<script>alert( 错 误 : 请 输入 所 有 信息 ):history.backO:</script>" 
Response.End 
End If 
这 UserPwd<>Pwd Then ' 两 次 输入 的 密码 不 同 
' 给 出 提示 ， 并 返回 注册 页 面 
Response.Write "<script>alert( 两 次 输入 的 密码 不 相同 ! '):history.back0O: </script>" 
Response.End 
End If 
"IsValidEmail 过 程 判 断 用 户 输入 的 发 件 人 的 邮件 地 址 格式 是 否 正 确 
If NOT IsValidEmail(Email) Then 
"邮件 地 址 格式 错误 ， 则 给 出 提示 ， 并 返回 到 注册 页 面 
Response.Write "<script>alert( 错 误 : 邮件 地 址 格式 错误 !):history.backO:</script>" 
Response.End 
End If 
判断 数据 库 中 是 否 存在 用 户 输入 的 用 户 名 
Set HVrs = Server.Createobject("adodb.recordset") 
' 从 数据 库 中 查找 UserName 值 为 UserName 的 记录 
sql = "Select * from user where UserName = "&UserName&"" 
HVrs.Open sql.conn.1.1 
If not (HVrs.EOF and HVrs.BOF) Then ' 存 在 满足 条 件 的 记录 
' 用 户 名 在 数据 库 中 存在 ， 则 给 出 提示 ， 并 返回 注册 页 面 
Response. Write "<script>alert(' 访 用户 名 已 经 存在 ! 请 重新 填写 用 户 名 
'):history.back():</script>" 
Response.End 
Else ' 不 存在 满足 条 件 的 记录 
' 在 数据 库 中 插入 一 条 新 记录 
Set rs-Server.Createobject("adodb.recordset") 
sql-"select UserName.Password.Name,Email from User" 
rs.open sql.conn,1.3 
rs.AddNew 
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rs("UserName")-UserName "BP OA 
rs("Password")-md5(UserPwd) ' 用 户 登 录 密 码 
rs("Name")-Name "用 户 真 实 姓名 
rs("Email")-Email "用 户 电子 邮箱 
rs.update ' 更 新 数据 库 
rs.close 

End If 
HVrs.Close 
Set HVrs = nothing 
End Sub 
%> 
<html> 
<head> 


«meta http-equiv-"Content-Type" content-"text/html; charSet=gb2312"> 

<link rel="stylesheet" href-"images/styles.css" type="text/css"> 

<title> R E </title> 

</head> 

<body leftmargin="0" Topmargin="0" marginwidth="0" marginheight="0"> 

6"> 聊 天 室 注册 向 导 </font></p> 


«p align="center" style="margin-top: 10"><font size= 
<hr> 
<center> 


<% 


If Request.QueryString("result")-"successful" Then 
Call save() 
Call show() 
Else 
Call main() 
End If 
vo 
</center> 
<%Sub main()%> 
<center> 
«Form method="POST" action-"register.asp?result-successful" name = registerform> 
<center> 
«table border-"0" width="625" cellspacing-"1" height="80"> 
<tr> 
<td width="472" colspan="2" height="17" align = center> 
<p align="center"><b> 基 本 信息 设置 </b> 
«p align="center"> 
</td> 
«nr 
<tr> 


«td width-"126" height-"8" bgcolor="#C0C0C0"> 
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<p align="center"><font color-"£000000" size-"2"-H] 户 帐 号 :</font> 
</p> 
</td> 
«td width="485" height="8"><input name-"UserName" size-"32" class="bk">&nbsp:<font 
color="#FF0000"><font size="2">*</font></font><font color="#000000" size = "2"> 请 
输入 您 需要 注册 的 用 户 名 </font> 


</td> 
</tr> 
<tr> 
«td width="126" height="8" bgcolor="#C0C0C0"> 
<p align="center"> 
<font color="#000000" size="2"> 用 J^ 密 码 :</font> 
</p> 
</td> 
<td width="485" height="1"> 


color="#000000" size = "2"> 用 于 登录 系统 的 身份 验证 </font> 
</p> 
</td> 
</tr> 


<tr> 
<td width="126" height="8" bgcolor="#C0C0C0"> 


<font color="#000000" size="2"> 密 fij 确 认 :</font> 
</p> 
</td> 
<td width="485" height="25"><input type = "Password" name="Pwd" size="32" 
class="bk">&nbsp:<font color="#FF0000"><font size="2">*</font></font><font 
size="2"> 确 认 密 码 </font> 
</td> 


"8" width="126" bgcolor="#C0C0C0"> 
<p align-"center"»—font size="2"> 真 S: 姓 名 :</font></p> 
</td> 
<td height="1" width="559"><input type="text" name="Name" size="32" 
class="bk">&nbsp:<font color="#FF0000"><font size="2">*</font></font><font 
> 请 输入 真实 姓名 </font></td> 


size 
«n 
<tr> 
<td height-"8" width-"126" bgcolor-"£C0COCO"- 
<p align="center"><font size-"2"»Hi F 邮 箱 :</font></p> 
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</td> 
«td height-"1" width="559"><input type="text" name-"Email" size="32"  class-"bk" 
style-"ime-mode:disabled"^&nbsp:-font color="#FF0000"><font 
size="2">*</font></font><font size="2"> 请 输入 您 的 电子 邮箱 </font></td> 
«nr 
<tr> 
<td width="472" colspan="2" height="21"> 
<p align="center"> 
<p align="center"> 
<input type="Submit" value=" 提 交 " name="register" class="Tips_bo"> 
</td> 
</tr> 
</table> 
</Form> 
<%End Sub%> 
<%Sub show) %> 
<table border="0" width="71%" cellspacing="1" height="47"> 
<tr> 
<td width="100%" height="21"> 
<p align="center"><font color="#FF0000"><b> 用 户 注册 成 功 </b></font> 
</td> 
</tr> 
<tr> 
<td width="100%" height="18"> 
<p align="center"><font color="#FFffff'> 您 的 信息 设置 已 经 成 功 ， 进 入 聊天 室 请 点 击 “ 完 
成 ”</font></p> 
<p align="center">[ <a href="index.asp"><b> 完 成 </b></a> 
</td> 
«fr» 
</table> 
<%End Sub%> 
</body> 
</html> 
<% 
' 关 闭 销毁 对 象 
Set rs=nothing 
conn.close 
Set conn=nothing 
%> 


(2) 将 创建 的 文件 保存 至 CNInetpubwwwroot X fF X F. 
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5. 创建 聊天 室 主 界面 


聊天 室 主 界面 是 一 个 多 窗口 的 框架 页 面 。 该 页 面 分 为 两 部 分 ， 第 一 部 分 由 topmsg.asp 
文件 实现 ， 显 示 聊 天 室 名 称 ， 第 二 部 分 由 Chatroom.asp 文件 实现 ， 显 示 聊 天 室 在 线 用 户 列 
表 。Chatroom.asp 文件 也 是 一 个 多 窗口 的 页 面 , 由 showname.asp、showmsg.asp 和 postmsg.asp 
等 3 个 文件 组 成 。 


【练习 13-29】 创 建 聊 天 室 名 称 显示 页 面 topmsg.asp。 
(1) 创建 网 络 聊天 室 名 称 显示 文件 topmsg.asp， 其 代码 如 下 所 示 : 


<head> 
<title></title> 
</head> 


<body topmargin="0" bgcolor="#C0C0C0"> 
<center> 

<font size="7"> 

网 络 聊天 室 

</font> 

</center> 

<a href = logout.asp target = _parent> 退 出 </a> 
</body> 


(2) 将 topmsg.asp 文件 保存 至 Ci\Inetpub\Wwwwroot 文 件 夹 中 。 


【练习 13-30】 创 建 聊天 室 在 线 用 户 列表 文件 Chatroom.asp。 
(1) 创建 网 络 聊 天 室 在 线 用 户 列表 文件 Chatroom.asp， 其 代码 如 下 所 示 : 


<html> 
<head> 
«meta http-equiv="Content-Type" content-"text/html; charset=gb2312"> 
<title> 聊 天 室 </title> 
</head> 
<frameset rows="*" cols="150.*" frameborder-"1" border-"1" framespacing="0"> 
«frame border = 1 src="showname.asp?nmyself=<%=request.querystring("myself")%>" 
name-"leftFrame" scrolling-"yes" noresize> 
«frameset rows-"*,100" frameborder-"1" border-"1" framespacing-"0"— 
«frame border = 1 src-"showmsg.asp" name-"showmsg" | scrolling = "yes" 
«frame border = 1 
sSrc-"postmsg.asp?myself--?56-request.querystring("myself")?67 &toname--*o-request.Qu 
eryString("toname")?o7" name-"bottomFrame" scrolling="no" noresize> 
</frameset> 
</frameset> 
<noframes><body> 


</body></noframes> 
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</html> 
(2) 将 Chatroom.asp 文件 保存 至 Ci\Inetpub\wwwroot 文 件 夹 中 。 


完成 topmsg.asp 文件 和 Chatroom.asp 文件 的 创建 工作 后 ， 用 户 可 以 参考 下 面 练 习 所 介 
绍 的 方法 创建 网 络 聊天 室 主 界面 框架 文件 Main.asp 文件 。 


【练习 13-31】 创 建 网 络 聊 天 室 主 界面 框架 文件 Main.asp。 
(1) 创建 网 络 聊天 室 主 界面 框架 文件 Main.asp， 其 代码 如 下 所 示 : 


<html> 

<head> 

<title> 聊 天 室 </title> 

</head> 
<!-- include file="conn.asp" --> 
<% 
If Session("User") —"" Then ' 用 户 登 录 
' 把 用 户 名 添加 到 在 线 名 单 中 

set rsx-Server.CreateObject(" ADODB.RecordSet") "创建 RecordSet X 
' 从 数据 库 中 查询 id 为 空 的 记录 

sqlx="select * from online where id is null" 

HATAW, Tres ETE rsx 中 


rsx.open sqlx.conn, 1,3 


rsx.addnew ' 添 加 一 条 新 记录 
rsx("onlinetime")-time() ' 登 录 时 间 
rsx("username")-Session("user") "用 户 名 

rsx.update "更 新 数据 库 
TSX.close "关闭 RecordSet 对 象 
Set rsx = nothing 
%> 


<frameset rows="15%,*" frameborder-"1" border-"1" framespacing="0"> 
«frame src = "topmsg.asp" name = "topframe"> 
«frame src-"chatroom.asp?myself--*6-Session("user")?67" name-"include"^ 
«noframes- 
<body> 
</body> 
</noframes> 
</frameset> 
<frameset> 
</frameset> 
</html> 
<% 
Else ' 用 户 没有 登录 
"给 出 提示 ， 返 回 到 前 一 页 
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Response.Write("<script>alert(' 你 还 没有 登录 !"):history.backO:</script>") 
"终止 当前 对 ASP 文件 的 执行 ， 并 将 现 有 结果 返回 给 客户 端 
Response.End 

End If 

%> 


(2) 将 Main.asp.asp 文件 保存 至 Ci\Inetpub\wwwroot 文件 夹 中 。 
6. 创建 在 线 用 户 显示 页 面 


下 面 将 通过 练习 ， 介 绍 创 建 在 线 用 户 显示 页 面 ShowName.asp 的 方法 。 


【练习 13-32】 创 建 在 线 用 户 显示 页 面 ShowName.asp。 
(1) 创建 聊天 室 在 线 用 户 显 示 页 面 文件 ShowName.asp， 其 代码 如 下 所 示 : 


<html> 

<head> 

<title> 用 户 列表 </title> 

<META HTTP-EQUIV="refresh" CONTENT= 
</head> 

<body> 

<table height = "85%" valign = top> 

<tr height = 10> 


<td valign = top> 

在 线 网 友 

<hr> 

</td> 

«nr» 

«tr valign = top> 

<td valign = top align = center> 

<!-- #include file="conn.asp" --> 

<% 

"显示 最 新 在 线 名 单 

set rsout-Server.CreateObject(" ADODB.RecordSet") "创建 RecordSet 对 象 
sglout-"select *from online where id ORDER BY id DESC" 
"从 数据 库 中 查询 所 有 记录 ， 按 照 id 降序 排列 


rsout.open sqlout.conn,1,1 "执行 查询 操作 ， 将 结果 保存 在 rsout 中 
Do While not rsout.eof "循环 显示 所 有 记录 
' 建 立 超级 链接 


response.write ("<a href = chatroom.asp?myself-"&Session("user")&"&toname-") 
response. Write(rsout("username")) 

response. Write(" target = 'include'>") 

response. Write(rsout("username")) "显示 用 户 名 

response. Write("</a>") 

response. Write("<br>") "换行 
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rsout.movenext "指向 下 一 条 记录 
loop 
response. Write("<br>") 
%> 
</td> 
<I> 
<tr> 
<td></td> 
</tr> 
</table> 
<table border=0 cellpadding=0 cellspacing=0 width="86%" height="10%"> 
<tr> 
<td></td> 
«tr 
</table> 
</body> 
</html> 


(2) 将 ShowName.asp 文件 保存 至 C:\Inetpubvwwwroot X fF X F. 
7. 创建 聊天 发 言 提交 页 面 


聊天 发 言 提交 页 面 是 用 户 提交 聊天 发 言 的 页 面 ， 用 户 可 以 参考 下 面 练习 所 介绍 的 方法 
创建 该 页 面 。 


【练习 13-33】 创 建 聊天 内 容 提交 页 面 PostMsg.asp。 
(1) 创建 聊天 室 中 的 聊天 内 容 提 交 页 面 PostMsg.asp， 其 代码 如 下 所 示 : 


«1-- include file-"conn.asp" --> 

<html> 

<head> 

«meta http-equiv-"Content-Type" content-"text/html: charset=gb2312"> 

<title>postmsg</title> 

</head> 

<body topmargin="0" leftmargin="0"> 

«table width="100%" height-"58" border="0"> 

<t> 

<td height="25" colspan="2"> 

<form action="postmsg.asp?act=addmsg&myself=<%=request.querystring("myself")%> 

&toname=<%=request.QueryString("toname")%>" method="post" name="form1" > 

<input readonly type = text name = FromName value = "<%=request.querystring("myself')%>"> 
<select name="rname"> 
<%lIf request.QueryString("toname") = "" Then%> 
<option> 大 家 </option> 
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<%Else%> 

<option><%=request.QueryString("toname")%></option> 

<% 

End If 

' 显 示 在 线 人 数 

set rsout=Server.CreateObject("ADODB.RecordSet") ' 创 建 RecordSet 对 象 
sqlout="select *from online where id ORDER BY id DESC" 

"从 数据 库 中 查询 所 有 记录 ， 按 照 id 降序 排列 


rsout.open sqlout,conn, 1,1 "执行 查询 ， 将 结果 保存 在 rsout 中 
fori-lto 50 "在 下 拉 列 表 框 中 最 多 显示 50 个 用 户 名 
%> 

<option><%response. Write(rsout("username"))%></option> 

<% 

rsout.movenext "指向 下 一 条 记录 

if rsout.EOF Then Exit For "到 达 最 后 一 条 记录 则 跳出 For 循环 
next 
%> 
</select> 
说 : 


«input name-"msg" type-"text" size="30"> 
<input name-"Submit" type="submit" value=" 提 交 发 言 " height-"15"» <input name = "hidden" 
type = "submit" value=" 私 聊 "> 
<input name-"username" type="hidden" id-"username" 
value-"«*oresponse.write(request.querystring("myself"))96»" 
</form></td> 
</tr> 
<tr> 
<td width="602" height="25"></td> 
<td width="185"> </td> 
«I 
</table> 
</body> 
</html> 
<% 
ac=request.QueryString("act") 
' 读 取 act 的 值 
if ac-"addmsg" then 
'act. 的 值 为 addmsg 
If Request.Form("hidden")—"" Then ' 私 聊 
Session("chat") = "" 
"清空 Session("chat") 中 的 内 容 
"把 要 显示 的 私 聊 信 息 保存 在 Application("chat") 中 
Application("chat") = "<font size = 2>"&request.Form("username")&" 悄 悄 地 对 
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"&request.form("mame")&" 说 :<font color = black»"&request.form("msg")&"«/font* 
"&time()&"«/font»" 


Application("chatto") = request.form("rname" "聊天 对 象 
Application("owner") = request.Form("username" "发 言 者 

Else ' 不 是 私 聊 

set rs-server.createobject("adodb.recordset") "创建 RecordSet 对 象 
Sql="select * from chat" ' 查 询 数据 库 
rs.open sql,conn, 1,3 "执行 查询 
rs.addnew "添加 一 条 新 记录 
rs("FromName")-request.Form("username") "发 言 者 

rs("ToName")-request.form("rname") ' 聊 天 对 象 
rs("chat")-request.form("msg") "显示 私 聊 信息 
rs("posttime")-time() "提交 时 间 
rs.update ' 更 新 数据 库 
Ts.Close "关闭 RecordSet 对 象 
set rs-nothing 


"增加 一 条 聊天 记录 ， 将 Application("Gchatnum") 的 值 加 1 
Application("Gchatnum") = Application("Gchatnum'")+1 
End If 
end if 
%> 


(2) 将 PostMsg.asp 文件 保存 至 C:\Inetpub\vwwwroot 文件 夹 中 。 
8. 创建 聊天 内 容 显 示 页 面 


聊天 内 容 显 示 页 面 的 效果 由 ShowMsg.asp 文件 实现 ， 在 该 页 面 中 可 以 显示 聊天 室 中 公 
共 聊 天 的 内 容 。 


【练习 13-34】 创 建 聊天 内 容 显示 页 面 ShowMsg.asp。 
(1) 创建 聊天 内 容 显示 页 面 ShowMsg.asp， 其 代码 如 下 所 示 : 


<!--#include file="conn.asp"--> 
<HTML> 
<HEAD> 
<TITLE> R </TITLE> 
<META HTTP-EQUIV="refresh" CONTENT="2"> 
</HEAD> 
<BODY> 
<table width="100%" height="70%" border="0" > 

<t> 

<td valign = top> 
<% 
"显示 聊天 内 容 
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'Session("Lchatnum") 为 用 户 登录 时 聊天 总 记录 数 
'Application("Gchatmum") 为 当前 聊天 总 记录 数 
'Session("Lchatnum")<Application("Gchatnum") 表 明 用 户 登 录 后 ， 该 聊天 室 有 用 户 聊 天 ， 
' 则 显示 登录 之 后 的 聊天 记录 
If Session("Lchatnum")-Application("Gchatnum") Then 
start = Session("Lchatnum")1 
for i = Application("Gchatnum") to start step -1 ”使 用 For 语句 循环 显示 所 有 聊天 记录 
set rs-Server.CreateObject(" ADODB.RecordSet") "创建 RecordSet 对 象 
rs.Open "Select * from chat where id="&i,conn,1,3 
' 从 数据 库 中 查询 id 值 为 i 的 记录 ， 并 将 结果 保存 在 rs 中 
%> 
«a href = chatroom.asp?myself=<%=Session("user")%>&toname=<%=rs("FromName")%> 
target="include"><%response. Write(rs("FromName"))%></a> 
对 
«a href = chatroom.asp?myself}=<%=Session("user")%>&toname=<%=rs("ToName")%> 
target="include"><%response. Write(rs("ToName"))%></a> 
说 : 
«font color = black 
<% 
response. Write(rs("chat")) "聊天 内 容 
%> 
</font> 
<% 
response. Write(rs("posttime")&"<br>") "REN RI 
%> 
<br> 
<% 
rs.close() XH] RecordSet 对 象 
set rs-nothing 
Next 
End If 
96 
</td> 
</tr> 
</table> 
«table height = "30%" width = "100%"> 
«tr width = "10" valign = center height = "30%" bgcolor = "#bbbbbb"> 
<td><font color = red> 私 聊 内 容 </font></td> 
<I> 
«t 
«td valign = top> 
<% 
IfSession("chat") >Application("chat") Then —— "Session("chat") 用 来 保存 用 户 浏览 器 上 的 私 聊 内 容 


*356* ASP 动态 网 站 开发 教程 (第 三 版 ) 


'Application("chat") 用 来 保存 当前 私 聊 内容 ， 二 者 不 相等 ， 说 明 有 新 的 私 聊 信息 
"登录 用 户 为 私 聊 发 言 者 或 为 私 聊 发 言 对 象 ， 或 私 聊 对 象 为 所 有 人 ， 则 显示 私 聊 内 容 
If Session("user") = Application("owner") or Session("user") = Application("chatto") or 

Application("chatto") = "大 家 " Then 
Response.Write Application("chat") ' 显 示 私 聊 内 容 
Session("chat") = Application("chat") "保存 用 户 可 以 看 到 的 私 聊 内 容 
End If 
Else ' 不 满足 条 件 
Response.Write Session("chat") "显示 用 户 私 聊 内 容 
End If 
%> 
</td> 
«tr 
</table> 
</BODY> 
</HTML> 


(2) 将 ShowMsg.asp 文件 保存 至 C\Inetpub\wwwroot 文件 夫 中 。 
9. 创建 聊天 用 户 退出 页 面 
下 面 将 通过 练习 介绍 用 户 退 出 聊天 室 文件 Logout.asp。 
【练习 13-35】 创 建 聊天 室 退 出 登录 文件 Logout.asp。 
(1) 创建 聊天 室 退 出 登录 文件 Logoutasp， 其 操作 步骤 如 下 所 示 : 


<!--#include file = "conn.asp"--> 

<% 
set rsdell=Server.CreateObject("ADODB.RecordSet") "创建 RecordSet 对 象 
' 将 当前 登录 用 户 从 在 线 用 户 数据 表 中 删除 


sqldell-"delete * from online where Username='"&Session("user")&"" 


rsdell.open sqldell.conn, 1.3 ' 执 行 删 除 操作 
Session("user") = "" "清除 Session 中 的 用 户 名 
Session("chat") = "" "清除 Session. 中 的 私 聊 内 容 
Session("Lchatnum") = 0 ' 将 当前 聊天 记录 数 置 为 0 
Response.Redirect "index.asp" ' 页 面 转 到 登录 界面 

%> 


(2) 将 Logout.asp 文件 保存 至 C:\Inetpub\wwwroot 文件 夹 中 。 
13.4.4 ”实例 测试 


完成 本 节 实 例 的 操作 后 启动 TE 浏览 器 ， 在 浏览 器 地 址 栏 输入 http://localhost/index.asp 
并 按 Enter 键 显示 聊天 室 登 录 页 面 ， 如 图 13-65 所 示 。 在 聊天 室 登 录 页 面 中 单 击 “ 注 册 新 
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用 户 ” 链 接 ， 可 以 打开 如 图 13-66 所 示 的 聊天 室 新 用 户 注册 页 面 ， 注 册 新 用 户 。 


图 13-65 ”聊天 室 登 录 页 面 图 13-66 聊天 室 用 户 注 册页 面 


在 图 13-64 所 示 的 聊天 室 登 录 页 面 中 成 功 登录 聊天 室 后 ， 将 打开 如 图 13-67 所 示 的 聊 
天 室 主 界面 ,在 该 界面 中 ,用户 可 以 在 页 面 的 底部 撰写 并 发 送 聊 天 内 容 ， 如 图 13-68 所 示 。 


图 13-67 聊天 室 主 界面 13-68 ”在 聊天 室 中 聊天 


单 击 图 13-67 所 示 的 聊天 室 主 界面 左上 角 的 “退出 ”链接 ， 可 以 退出 聊天 室 模块 。 


